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PREFAZIONE - Tim Hartne11 


D' ora in poi non dovrete piu' sacrificare le cento lire in 
sala giochi ; infatti, con l ' aiuto dei programmi presentati in 
questo libro <sempre accompagnati dai chiarimenti tecnici del 
caso > potrete ottenere gli stessi, identici effetti. 

L ' autore Daniel, nello stendere l •' opera, presume che voi 
conosciate già' le basi di programmazione dello Spectrum per 
cui procede spedito presentando i programmi piu' interessanti 
senza tralasciare pero' la descrizione del perche' venga 
seguita una certa strada anziché' un' altra. 

Il contenuto didattico trova posto alla fine di ogni programma 
dove e' riportata la spiegazione dei vari blocchi che lo 
compongono. Ciononostante, siamo certi che il volume verrà' 
apprezzato principalmente per il suo donare all' utente diverse 
ore di divertimento, lo stesso che abbiamo provato noi nel 
verificare i listati per la pubblicazione. 


Tim Hartnell 


Tim Hartnell, 
Inglese degli 
sugli ZM e su 


oltre ad essere il fondatore del Gruppo Nazionale 
ZX Users, ha anche scritto una trentina di libri 
altri computers. 
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Capitolo 1 


LETTURA DELLA TASTIERA 

Il riuscire a " leggere " la tastiera., e' indispensbile per poter 
scrivere un programma di giochi. Questo primo capitolo spiega 
appunto le varie funzioni legate alla tastiera e in quale modo 
esse agiscano. 

INKEY* rende il carattere del tasto premuto sottoforma di 
stringa esplorando la tastiera in una frazione di secondo. 
Cosi' come in altri computers, tale funzione ha una azione 
"continuativa"cioè' continua a leggere il carattere relativo 
al tasto per tutto il tempo in cui questo rimane premuto, 

INKEY* agisce anche in combinazione con i tasti di Shift 
rendendo i relativi caratteri maiuscoli o i relativi simboli. 
CODE INKEY*., come e' intuibile, porta il codice del carattere 
memorizzato da INKEY* il quale, nel caso non sia azionato alcun 
tasto, contiene una stringa vuota <ad es." In questo caso 

CODE INKEY* ritorna il valore zero. 

Lo Spectrum possiede anche un secondo corcando molto usato : IN. 
Il vantaggio di "IN" rispetto ad "INKEY*" e' che può' essere 
usato per leggere piu' di un tasto contemporaneamente; cosa che 
INKEY* non può' fare. 

Provate a battere : 

10 POKE 23692,-1:PRINT INKEY*;.00 TO 10 

e rilevate cosa succede premendo due tasti contemporaneamente 
come potrebbe capitare durante un games di invaders. La 
risposta e' semplice : non succede nulla in base a quanto sopra 
spiegato. 

La funzione di INKEY* viene prevalentemente usata per variare 
le coordinate delle colonne a cui sono riferiti gli oggetti <ad 
esempio una base missilistica>. Un sistema per effettuare dette 
variazioni e' quello di adottare gli statements IF...THEN, 
molto piu' comodi che non l' uso di operatori logici. Nella 
routine e' combinato anche il controllo per evitare che la base 
missilistica non provochi errori portandosi all.' esterno 
dei margini dello schermo. 


■ p' 

contiene 

l e c o o r d i n a t e 

de l l e 

co l orme 

lei. la 

base 

ro issi 1. istica. 




Versione 1.: IF...THEN 

100 IF INKEY*- "8" AND P< 31 THEN LET p*p+l 
110 IF INKEY*»"5" AND P>0 THEN LET p*p~l 
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Versione Operatori logici 

100 LEI p=p+CINKEY*=»"8" RHD 
P< 3 1 >-< I NKE Y*= " 5" RHD p >0 > 

INKEY# può' anche veri ir i ripiegato per stabilire limiti di 
tempo. In questo caso e' sottoposto alla funzione PAUSE la 
quale può' essere interrotta con la pressione di un tasto 
qualsiasi per poter far riprendere al programma il suo regolare 
svolgimento. Una forma del genere e' usata assai spesso. Eccovi 
un esempio 


10 

20 


5499 RE fi Altra partita ? 

5500 PRIMI RT 5,2; "Vuoi giocare ancora 
RI 7.. 0" Ha i 5 se co nel i 

per rispondere s---'n" 

5510 PAUSE 250 

5520 IF XNKEYflKV's" THEN PRIMI RT 10, 13.; "0. K. " : 
STOP 

5530 RUM 


In unione a GOTO, la funzione INKEY# sostituisce efficacemente 
gli statement# IF...THEH come potete verificare dalla parte 
finale del programma che segue 


3-0 
£0 
00 
4 0 
©0 
0 99 
900 
4 '9 9 '9 
5000 


GO IO ©000 

R © r-i P r o g r a rn rn a p r e s e. n t. e 
print "Prog . . . " 

BEEP 1,RNQ*60-30 

R E r-1 U i. t. i rn o u o rn o p e r s o 

GO IO ©©00 

R E M I s t. r u z ioni 

REM I £ t. r u lioni prese n t. i 
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5010 
50S0 
©0 30 

5299 

5300 

t g 

S§10 

5320 

5330 

54-90 

54-99 

©500 

5600 

ozio n 

5610 

” s " > - 


PRINT "IStf , . . " 

BEEP 1 ,R N 0*60-30 

REM inizia Lizzasione 
REM Inizia Lizzazione 

PRINT "Iniz..." 

BEEP 1,RNO*60-30 

SO TO 20 

REM Partita finita 
CLS 

PRINT RT 9.0 ; ” UuOi 

i S / n 

OD TO 5610-(610 RNO 
(310 RNO INKEY$*‘'n " ) 


prese ri 


i„ e i «. t. r 

INKEY$ = 


Una particolarita' e-' la sua funzione ripetitiva. Nel caso di 
situazioni tipo “RItra partita <»•/■«>?", dove "s" e "n" stanno 
per si o per no.. INKEY# s/iene usata come risposta . Esempio 


5550 PRINT RT ? 0 ” Uu o i u n 'alt r -a 
partita ( s n :• ■? ” 

5560 GO TO 5560+(30 RND INKEY**" 
s “ ) + ( INKE Y $ * •• n " j 

5570 PRINT RT 9^2;"Sparo tu ti s 
i a divertito.”.; RT U.,9; "Ciao P e r 
adesso.” 

5560 STOP 

5590 REM Resto dei. programma.... 


E‘ possibile adottare una tecnica simile anche per le 
istruzioni : 


5000 
501© 
530© 
5550 
5550 
567© 
5560 
56§0 
5600 
z i o n 
56 10 
1 ■ s “ :• 


REM Ist r u zio n i 

REM Inizializzazione 
REM (come p r i ma ) : 


REM Resto dei. prò g r a m m a . . . 
FRI NT RT 9,0.;” U u o i Le istr u 

1 GÓ S TS J 5610- (610 RNO INKEV* » 

-(310 R ND IN KEY$ « ” n ” ) 


Sfortunatamente, qui' può' succedere che, una volta data la 
risposta, ad esempio "s", non si tolga abbastanza velocemente 
il dito dal tasto fornendo una analoga risposta, magari 
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errata, anche ad eventuali domande che seguano. Per evitare 
questo contrattempo e' sufficiente inserire la linea che seque 
5590 IF INKEY#< >""THEN GOTO 5590. 

Esaminiamo ora dettagliatamente la funzione IN. 

Innanzitutto IN non rende una stringa bensi' un numero e poi 
non esplora in un sol colpo tutta la tastiera ma prende in 
considerazione blocchi di cinque tasti alla volta. Ogni singolo 
tasto sottrae un numero funzione della sua posizione nella fila 
dei cinque, da un secondo numero fisso caratteristico della 
tastiera quando non risulta azionato alcun tasto. 

Prendiamo come esempio la fila coi numeri da IVI al 5. La 
locazione di IN e' 63486, mentre il numero caratteristico e',di 
solito, 255. 

Il tasto "l" sottrae 2 elevato a 0=1; per cui, nel caso sia 
questo V unico tasto azionato, il numero reso sara' 255-1=254. 
Il !‘2" sottrae 2 elevato a 1=2; per cui da solo rende 
255-2=253. Similmente il"3" sottrae 2 elevato a 2=4; il "4" 
sottrae 2 elevato alla 3=8 e "5" sottrae 2 elevato alla. 4=16. 
Nel caso in cui ne venga premuto piu-' di uno, si avranno le 
varie combinazioni . In presenza di una azione simultanea su 


tutti e cinque i tasti, IN 63486 renderà-' 
255-16-S-4-2-1=244. 


Eccovi la serie 
funzione IN : 

IN 63486 
IN 64510 
IN 65022 
IH 65278 
IN 61438 
IN 57342 
IN 49150 
IN 32766 


completa delle locazioni cui si riferisce 

: tasti 1,2,3,4,5 
: tasti Q,W,E,R,T 
; tasti ft.S.D.F.G 
: tasti Caps Shift,2,X,C,V 
: tasti 6, ?.. 8, 9,0 
: tasti Y,U,1,0,P 
: tasti H,J,K,L,EHTER 

: tasti B,N,M,Symbol Shift,BreakrSpace 


la 


I primi quattro blocchi, si trovano nella meta' sinistra della 
tastiera ed i relativi valori vanno considerati in ordine di 
importanza man mano che si va verso V interno, per cui i 

tasti verso il bordo hanno valore 1 e quelli posti al centro 
16. Per i rimanenti quattro blocchi, il discorso, 
ovviamente, si inverte. 

Per essere piu-' chiari, la cifra 1 viene sottratta alla 
pressione dei tasti "l","Q","p" e "0" come invece la 16 
riguarda "G","5",“6" e "B". 

Un handicap di IN sta' nel fatto che il numero caratteristico 
non sempre e' 255, per cui possono venir resi anche numeri 
errati. 

Un metodo attendibile per riportare ogni volta il valore 
caratteristico a 255, e' quello di inserire un BEEP prima della 
lettura della tastiera. 

In linea di massima, e' piu' semplice usare INKEY* anche se in 
alcuni casi particolari, come appunto l' azionamento simultaneo 
di due tasti, la funzione IN si dimostra indispensabile. 

Per verificare la versatilità' di IN, provate a far girare il 
programma che segue riguardante un semplice "Sketchpad" che vi 
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abiliterà-' a disegnare sullo schermo. Se possedete una 
stampante, potrete in ogni momento dare un BREAK al programma e 
ricavare una copia del quadro tramite :i.l comando COPY. 


ì8 

G O 3 

uè 100 © 

cs! 0 

BEEP 

. 1 , 10 

£6 



30 

XF ni 

«1 THEN OUER 

4-0 

PLOT 

INK i n k ; x y 


X 


b 


I. 


1 ssue 


LET a rx 

variare 


L. ET 

4- 5 REM 
4-6 
4- ~? 

50 

< 190» 

6 0 

< X 6 6 ) 

. 7,0 

■' '* é 0 L ET a « a X N K EY * 

90 IF a $ > “0" RND 
LET i ri K a URL. a $ 

X00 XF a«jat ,, S" THEN PRINT RT 0 , Ufi 

*6; FLASH 0.; OUER 1.; IM U ERSE 0.1 " 

LET rn ~rn -+• 1 — < 3 RND rn = £ ) : P 

R XNT RT 0 , rii *6 .1 FLASH X; OUER 1; 

INVERSE 0 .; 


REM 187 in £51, 189 in 253 

REM 190 in 254., 19 1 in 255 

LET X «X + (IN 65022*187 RMD X 
■ (IN 65022*190 RND X > 1 » 

.ET y *y+ (IN 64510 = 189 RND y 
•(IN 65278*187 RND y > 1 » 

P L O T IN U ERSE ( m = £ ) .i IN K i ri K 


THEN 


1 10 
X£0 

OUER' 0 : 

G O T O 30 




1000 

L. ET X » 1 £ 

7': LET y *s© 

~7 . 

1 

L.. ET 

i n 

K =0 : 

L ET rn =*0 




10 1 0 

BORDER © 

: PRPER ~? : 

IN K 0 

: C 

L. S 

1020 

PRINT •' '• 

M 0 v i rn e n t. i 

. <■ - 

- .. 

W — 3 

u : 
1030 

x - g i u 1 ' , " 

R -3 i ri 

D -d 

e- 3 t. 

PRINT "" 

C 0 rn b i n a z i 

0 n i 

d i 

ago 

n a 1 . i 
104.0 

PRINT "" 

P r e rn i u ri 

t. a s 

t. 0 . 

.. 

1050 

50 

X F X NKEY 

$ < >.THEN 

OO 

TO 

10 

1060 

0 

1070 

XF INKEY 

Sp = 11 THEN 

GQ 

TO 

106 

CLS 





1080 

PRINT FLASH 1;"DIS 

« 

F L R 3 


M 0 
1090 
1 100 


MUOU 
PLOT 0 
RETURN 


CflNC 

IST 


D R R W 191.. 0 
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Capitolo 2 


GRAFICA DEFINITA DALL' 1 UTENTE 

Una delle peculiarità-' dello Spectrum e' la possibilita' di 
creare facilmente nuovi caratteri. Osmi carattere, disposto in 
una griglia 8*8 pixel, e-' formato dalla combinazione di 64 
punti ciascuno dei quali può-' essere "pieno" o "vuoto" < settato 
o resettato> a seconda che debba essere visibile o meno. 
Considerate V omino che segue : 



Come si può- 1 notare, e' composto in un array <matrice) di 8*8 
punti. Il primo problema da risolvere e-' come inserirlo nel 
computer e visto che questo accetta solo numeri, vediamo di 
eseguire la trasformazione necessaria. 

Il carattere viene definito da 8 numeri : uno riferito alla 
prima riga, un secondo riferito alla seconda riga e cosi-' via. 
Il comando interessato e-' BIN, forma tronca che sta per 
"binary", accompagnato da un numero binario formato da tanti 
zeri quanti sono gli spazi e da tanti 1 quanti sono i punti. 
Gli otto numeri dell'' omino di cui sopra sono quindi : 


I riga 

II riga 

III riga 

IV riga 

V riga 

VI riga 

VII riga 
vili riga 


BIN 88881888 
BIN 00018100 
BIN 00001008 
BIN 00111110 
BIN 88801000 
BIN 00011108 
BIN 00100010 
BIN 00108818 


Il manuale riporta che BIN 80000000 può - ' venir sostituito da 0 
il quale e', evidentemente il suo equivalente decimale, ma non 
dice che anche qualsiasi altro numero binario ha un suo 
sostituto in decimale, per cui, se preferite operare in 
decimale, eseguite ogni volta la conversione b/d. Se andate di 
fretta, non avrete da far altro che battere il comando diretto 
PRINT BIN seguito dal numero binario per ricevere all'istante 
dal computer l'equivalente decimale. Se invece avete un attimo 
di tempo, soffermatevi a leggere quanto segue sul come 
ricavarli a mano. 
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Considerate il decimale 3287, lo possiamo scrivere anche come 
sottoriportato tenendo presente che il segno " + " sta' per 
"elevato alla potenza di" 


3*10+3 

<: 1000 ;■ 

ss 

3000 

2*10+2 

c 100 > 

ss 

200 

8*10+1 

< 10> 

SS 

80 

7*10+0 

C 1 > 

= 

7 




~5ii? 


E-' possibile cioè' scinderlo, 
termine per una potenza di dieci 
e' la base dei numeri decimali. 

Lo stesso discorso vale anche per 
e' ovviamente 2. fid esempio : 

1 * 2+7 < 128 } =128 

0*2+6 (64 > » 0 

0*2+5 C 32 > = 0 

1*2+4 <16 > * 16 

1*2+3 = 8 

1*2+2 <4> - 4 

0*2+1 <2> = 0 

1 * 2+0 < 1 > = 1 

"157~ ~ 


moltiplicandolo termine 

per 

in virtù-' 

del fatto 

che 

tale 

i numeri 

binari la 

cui 

base 


filtro modo per ottenere la conversione, e' quello di consultare 
la tabella sotto riportata. I numeri binari con gli 1 nelle 
posizioni d' inizio sono quelli di valore piu' alto e li 
troverete verso la fine della lista 


10 POR i =0 TO 2SS : L.ET 
20 LEI bsfis'-OOOOOOOO 1 ' 

30 POR n ~~7 TO 0 STEP ~ 1 
n i * j THEN LET b$ «8-n) =“ 1" 
«. i — 2 •+ n 

4-0 NEXT n : PRIWT b*; " - 

50 NEXT i 


XP 

LET 



00000000 

- 

0 

00000001 

— ~ — 

1 

00000010 


2 

00000011 

— — — 

3 

00000100 

— — — 

4. 

00000101 


S 

00000110 


6 

00000111 

W. -H» •••.« 

7 

00001000 

— — 

3 

00001001 

«.«a. 

2 

00001010 

-— 

10 

00001011 

— 

11 

00001100 

— 

12 
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00001100 . 

§ 0001110 
0001111 
00010000 
00010001 

§ 0010010 
0010011 

illilìSS 

00010110 

00010111 

00011000 

00011001 

00011010 

00011011 

00011100 

00011101 

00011110 

00011111 

00100000 

00100001 

00100010 

00100011 

00100100 

00100101 

00100110 

00100111 

00101000 

00101001 

00101010 

00101011 

00101100 

00101101 

00101110 

00101111 

00110000 

00110001 

§ 0110010 
0110011 

§ 0110100 
0110101 
00110110 
00110111 
00111000 
00111001 
00111010 
00111011 
00111100 

§ 0111101 
0111110 
00111111 
01000000 

§ 1000001 
1000010 
01000011 

010001§1 

01000110 

01000111 

01001000 

01001001 


13 

14. 

15 

16 
17 
1© 
19 
S0 
21 
SS 
S3 
S 4 
SS 
26 
27 
2 © 

29 

30 

31 

32 

33 

34 

35 
3 6 

3 7 
3© 

39 

40 

4 1 

42 

43 

44 
4 5 

4 5 
47 
4© 

49 

50 

5 1 

52 

53 

54 

55 

56 

57 
5© 
59 
©0 

6 1 
62 
6l3 
64. 

65 

66 
67 
6© 

69 

70 

71 

72 

73 
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01001010 


« _ 

74 

01001011 


— — 

75 

01001100 


— «- 

76 

01001101 

— 

— — 

77 

01001110 

— 

-u. wtm 

70 

01001111 

— 

— — 

79 

01010000 

— 

— — 

60 

01010001 


— _ 

0 1 

01010010 


— — 

SS 

01010011 


— — 

00 

01010100 


— ~ 

S4 

01010101 

— 

— — 

©S 

01010110 

« 

— —• 

©6 

01010111 

s-, 

— — 

©7 

01011000 



S© 

01011001 

— 

— — 

89 

01011010 


— — 

90 

01011011 

— 


91 

9 2 

01011100 


— ~ 

0 10 11101 


—. -M 

93 

©1011110 


— - 

94 

01011111 

— 

— — 

9S 

01100000 

— 

— — 

96 

01100001 

« 

- 

97 

01100010 

— 

— — 

9© 

01100011 


— —. 

99 

01100100 



100 

01100101 

— 

— — 

101 

01100110 


— ~ 

102 

01100111 


— — 

103 

01101000 


— 

104 

01101001 

— 

— —. 

10S 

01101010 

— 

-. ~ 

106 

01101011 

—• 

— — 

107 

01101100 

— 

— ~ 

100 

01101101 

— 


109 

01101110 

M- 

"... -~ 

110 

01101111 


— ~ 

111 

01110000 

—■ 


112 

01110001 

— 

— M 

1 1 0 

01110010 


— ~ 

114 

01110011 


— ~~ 

llS 

01110100 

— 

— -s. 

11© 

01110101 

- 

— 

117 

11© 

01110110 

— 

— ~ 

01110111 

— 


119 

01111000 

—• 

— — 

120 

01111001 


— 

12 1 

01111010 


— — 

122 

01111011 


— 

123 

01111100 


— — 

124 

01111101 



12S 

01111110 

— 

— «H. 

126 

01111111 

M. 

— — 

127 

10000000 

.«* 

— ~ 

12 0 

10000001 


—• ~~ 

129 

10000010 

— 

— 

130 

10000011 



131 

10000100 

■— 


132 

10000101 

— 

— ~- 

.•| .“j «««. 

10000110 

— 

— — 

134 
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10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
10010000 
10010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
10011000 
10011001 
10011010 
10011011 
10011100 
10011101 
10011110 
10011111 
10100000 
10100001 
10100010 
10100011 
10100100 
10100101 
10100110 
10100111 
10101000 
10101001 
10101010 
10101011 
10101100 
10101101 
10101110 
10101111 
10110000 
10110001 
10110010 
10110011 
10110100 
10110101 
10110110 
10110111 
10111000 
10111001 
10111010 
10111011 
10111100 
10111101 
10111110 
10111111 
11000000 
11000001 
11000010 
11000011 


135 

130 

137 

130 

139 

14.0 

14.1 

14-9 

14-3 

144 

145 

146 

147 

148 

149 

150 

151 
153 

153 

154 

155 

156 

157 
15© 

159 

160 
161 
162 

163 

164 

165 

166 
167 
16© 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 
105 
186 

187 

188 

189 

190 

191 

192 

193 

194 

195 
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11000100 
11000101 
11000110 

11001001 

11001010 

11001011 

11001100 

11001101 

11001110 

11001111 

11010000 

11010001 

11010010 

11010011 

11010100 

11010101 

11010110 

11010111 

11011000 

11011001 

11011010 

11011011 

11011100 

ìililìlk 

11011111 

11100000 

mmn 
11100011 
11100100 
11100101 
11100110 
11100111 
11101000 
11101001 
11101010 
11101011 
11101100 
11101101 
11101110 
11101111 
11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 
11111000 
11111001 
11111010 
11111011 
11111100 
11111101 
11111110 
11111111 


196 

197 
196 

ìli 
201 
202 
203 
204- 
206 
206 
207 
206 
209 
2 10 
211 
212 
213 
214. 

215 

216 
217 
216 
212 
220 
221 
222 
223 
224- 

225 

226 
227 
SS6 

23 1 

232 

233 
234. 

235 

236 

237 
236 
2 39 
24.0 
24.1 
24-2 
24-3 

24 4. 

245 

246 

247 
24-6 
24-9 
SS© 

25 1 

252 

253 
254- 

■3 SS* È? 
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La grafica viene generata con un loop in cui il numero di ogni 
riga viene letto <READ> da uno statement di DATA. La routine 
usata piu' frequentemente e' 


TORE 9100 
_. . n a® fo 7 
READ a 

POKE U3R 1 ’a ’ 1 + n a 

wpyT n 

_ 70 RETURN 

9100 DATA ©,20,3,62,3 



£8,34- 34- 


In questo specifico caso si definisce "A" con la sagoma dell' 
omino di prima. 

Volendo definire piu' di un carattere, e' necessario apportare 
una modifica al programma aggiungendo le linee che seguono e 
inserendo i dati dalla linea 9810 in avanti. I caratteri s/anno 
definiti dalle lettere UDG che vanno dalla "A" alla "U". 

9010 FOR i = l TO n: REM t' ìv' e f il numero dei 
caratteri da definir eli 


9040 POKE USR CHRstK i +143 >+n, a 


9060 NEXT 

i 


La subroutine 

usata d' 

ora in avanti da < 

9000 

FOR i 

= 1 T o n 

9010 

FOR ri 

ss 0 T O 7 

90S0 

READ 

3 

9030 

POKE 

U3R CMR$ ( 

9040 

NEXT 

n 

£0B0 

NEXT 

i 

90è0 

RETURN 

9100 

© 

DATA 

n ln a , n 3 , ri 

9110 

e 

OPTA) 

ri l n a , ri 3 , n 

Per rendere 

piu' 

veloce e piu' 


( i+143) + n,a 


n 

n 


agevole la vostra 
programmazione, ecco una lista delle sagome grafiche usate piu' 
correntemente con i relativi numeri di DATA. 


Per primi, gli invaders "statici", che non devono girarsi, 
saltare o camminare ma solo fare scena. 
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DATO 129906090, 60, 102., 153,195 
DATA 129,66,60,219,165,24,36,195 


DATA 195, 165,24,60,90, 36,24,231 
DATA 129,102,60,255,90,255,129,231 
DATA 60,126,219,219,255,126,66,102 

Per gli invaders in movimento scrivere prima una versione e 
quindi l' altra presentandole alternativamente : 


DATA 60,126,235,235,255,126,36,231 
DATA 60,126,215,215,255,126,66,102 
DATA 66,36,189,173,255,60,36,231 
DATA 36,36,60,247,189,189,36,36 
DATA 129,189,189,173,239,60,36,231 
DATA 231,165,189,181,52,255,129,231 
DATA 0,24,60,90,126,24,36,90 
DATA 60,90,126,60,24,36,90,0 
DATA 198,34,20,42,28,34,17,230 
DATA 99,68,40,84,56,68,136,103 


Ora gli "alieni", ben conosciuti dagli appassionati di giochi 
spaziali. Con questo sistema l' effetto si crea presentando un 
carattere alternato ad altri due : 

DATA 60,126,255,170,170,255,126,60 
A sinistra ; 

DATA 3,7,15,10,10,15,7,3 
A destra 

DATA 192,224,240,160,160,240,224,192 


Altro metodo, e' quello di stampare gli alieni <tutti lunghi 
non piu' di due caratteri > di seguito nell' ordine. Si ottiene 
un effetto assai realistico specialmente a velocita' sostenute. 
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Primo "alieno 


Sinistr a : DATA 63,127., 255, 73,73, 255,127,63 
Destra : DATA 252,254,255,36,36,255,254,252 


Secondo "alieno": 

sinistra DRTA 63,127,255,36,36,255,127,63 
Destra : DATA 252,254,255,146,146,255,254,252 

Terzo "alieno" 

Sinistra DATA 63,127,255,146,146,255,127,63 
Destra DATA 252,254,255,73,73,255,254,252 


Basi missilistiche 

DATA 24,24,24,68,126,255,219,219 

DATA 0,24,24,24,255,255,255,255 

DATA 24,24„24,60,255,255,255,0 

Sinistra DATA 1,1,7,9,31,127,255,255 
Destra DATA 0,0,192,32,240,252,254,254 

Vediamo qualche astronave 

Sinistra : DATA 0,252,32,33,18,127,15,1 
Destra : DATA 0,0,240,8,4,228,255,248 

Sinistra : DATA 31,32,79,255,255,79,32,31 
Destra : DATA 0,0,60,235,235,60,0,0 

Sinistra DATA 0,248,32,16,15,63,15,3 
Destra : DATA 0,0,0,224,16,8,207,248 

Alcuni asteroidi assomigliano ad astronavi. Sono formati da due 
disegni uno per la sagoma orizzontale-vertieale, l •' altro per 
quella diagonale. 


Rivolto verso nord-ovest : 

DATA 192,176,76,67,44,40,16,16 
Rivolto verso ovest 

DATA 0,7,25,98,132,98,25,7, 
Rivolto verso sud-ovest : 

DATA 16,16,48,44,67,76,176,192 
Rivolto verso sud : 

DATA 198,170,146,68,68,40,40,16 
Rivolto verso sud-est : 

DATA 8,8,12,44,194,50,13,3 
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Rivolto a est 

DATA 0,224,152,70,33,70,152,224 
Rivolto a nord-est 

DATA 3,13,50,194,44,12,8,8 
Rivolto a 'nord : 

DATA 16,40,40,68,68, 146, 170, 198 

I prossimi grafici sono aerei. 

Un tipo di Jet- 

Sinistra : DATA 0,0,224,112,120,255,60,15 
Destra •- DATA 0,0,0,0,224,248,30,248 

Un modello normale : 

Sinistra : DATA 192,192,227,158,127,0,0,0 
Destra : DATA 0,228,244,60,244,36,80,32 

Un secondo tipo di Jet 

Sinistra : DATA 14,199,224,255,127,1,0,0 
Destra : DATA 0,0,96,248,252,224,240,112 


Un modello particolare quale usato nel programma "Olocausto". 


Sinistra 

Centrale 

Destra 


DATA 192,224,240,248,143,255,15,1 
DATA 0,7,9,17,255,255,224,255 
DATA 0,192,32,16,254,255,30,248 


Le prossime otto file di dati si riferiscono ad un aereo 
inclinato in ognuna dello otto direzioni della rosa dei venti. 


Verso nord : 

DATA 8,8,28,62,127,8,8,28 

Verso nord-est : 

DATA 1,2,124,60,28,172,68,32 

Verso est : 

DATA 16,24,156,255,156,24,16,0 


Verso sud-est 

DATA 32,68,172,28,60,124,2,1 

Verso sud '■ 

DATA 28,8,8,127,62,28,8,8 

Verso sud-ovest ; 

DATA 4,34,53,56,60,62,64,128 


Verso nord-ovest 

DATA 128.64,62,60,56.53,34,4 
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Se preferite stare con i piedi per terra, eccov 
di carri armati e di navi. 

Sinistra DATO 0,16,31,31,63,127,63,Q 
Destra DAT A 0,0,252,0,240,24S,248,0 


Si n i stra DATA 0,0,63,8,l5,31,15 , 8 

Destra DATA 8,S,248,248,252,254,252,0 

DATA 8,8,64,63,112,126,255,126 
DATA 8,0,20,252,14,126,255,126 


Nave da guerra rivolta a sinistra 


Sinistra DATA 0 , 0 , 2 , 115 , 23 , 255 , 126,63 

Destra DATA 1 92 , 192 , 224 , 239 , 236 , 255 , 255,254 

ora rivolta a destra 

Sinistra DATA 
Destra DATA 


3,3,7,247,55,255,255,127 
0,0,64,204,232,255,254,252 


Ecco ora i dati per ottenere un carro armato 
vari modi. 

Verso nord 

DATA 8,73,73,93,127,93,65,65 

Verso nord-est : 

DATA 33,66,188,60,60,29,2,4 

Verso est : 

DATA 254,16,56,63,56,16,254,0 
Verso sud-est 

DATA 4,2,29,68,68,188,66,33 

Verso sud ' 

DATA 65,65,93,127,93,73,73,8 


Verso sud-ovest 

DATA 32,64,184,68,68,61,66,132 


Verso ovest : 

DATA 127,8,28,252,28,8,127,8 
Verso nord-est 

DATA 132,66,61,68,68,184,64,32 


Concludendo la selezione dei semoventi terrestri 
auto 


i una sequenza 


direzionato in 


ecco qualche 
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Iti alto a sinistra : DATA 31,31.. 4., 5, 55,59.. 55,6 

In alto a. destra. DATA 248.. £43., 32, 160.. 236,. 230., 236., 96 

In basso a sinistra.' DATA 6,6,7, 19,31,19, 1,7 
I ti basso a destra DATA 9696, 224200, 248288, 128, 224 


Sinistra : DATA 224,159,119,239,239,119,159,224 
Destra : DATA 28,242,190,191,191,190,242,28 

DATA 0,66,189,239,239,189,66,0 

DATA 102,153,239,223,223,239,153,102 


Lanciamo le bombe 

DATA 32,16,160,92,30,31,15,7 

DAT A 54,28,8,28,62,62,28,8 


Qui' di seguito trovate alcuni "paeman" disegnati in modo che 
ognuno dei primi quattro si alterni col quinto in funzione 
de11 a. propria direzione. 


Paeman rivolto a destra 

DATA 60,127,252,240,240,252,127 ,60 

Paeman rivolto in su' 

DATA 66,66,231,231,255,255,126,60 

Paeman rivolto a sinistra 
DATA 60,254,63, 15, 1.5,63,254 ,60 

Paeman rivolto in giu' 

DATA 60,126,255,255,231,231,66,60 

Paeman con la bocca chiusa 

DATA 60,126,255,255,255,255,126,60 

Spettro 

DATA 56,124,214,214,254,254,170,170 


Ora un po' di frutta 


Fragola : DATA 
Lampone : DATA 
Ciliegia : DATA 
Pesca : DATA 
Banana : DATA 
Prugna : DATA 
Mela : DATA 


24.82.247.255.255.126.60.24 
4,8,8,86,171,213,106,60 
8,8,20,20,34,99,243,96 

44,110,231,247,247,247,102,44 
2,3,7,14,30.124,248, 0 

8.16.24.60.124.62.60.24 

24,82,255,255,255,255.126,36 
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Per concludere la parte della grafica defi ti ita dall' utente., 
presentiamo una serie alternativa di numeri riferiti a forme- 
spesso usate in fasi particolari dei giochi TV. 

Un esempio e-' il punteggio,. inserito in una variabile di 
stringa con STR* e quindi scelto per mezzo di un loop tra i 
vari caratteri.. V ultimo dei quali determinato da LEM. Il 
codice < CODE > di ciascun carattere viene determinato 
aggiungendo il numero corrispondente alla differenza tra il. 
CODE del digit interessato e il CODE della grafica stessa 
definita da11 ' utente. 

Ma poiché' gli esempi valgono da sempre piu' delle parole 
battete la routine che segue. La variabile "S" contiene il 
punteggio mentre gli user-graphic da 8 a 9 derivano dalle 
lettere da fi e J impostate in "graphic mode". La v/ariabile S* 
contiene il punteggio da ricavare dalla serie di numeri. 


4-000 

4.010 

4.020 

95) 

4.030 

4.04.0 


LET S$sSTR* S 
POR i=l TO LEM 
LET S « ( i ) = CHR$ 


NEXT i 
RETURN 


s $ 

( CODE 


S $ (i) + 


Eccovi i grafici : 

8 DATA 0,60,66,66,98,98,90,60 

1 DATA 0,8,8,8,12,12,12,12, 

2 DATA 0,124,2,2,60,96,96,62 

3 DATA 0,124,2,2,60,6,6,126 

4 DATA 0,64,96,100,100,126,4,4 

5 DATA 0,62,64,64,60,6,6,126 

6 DATA 0,62,64,64,124,70,70,126 

7 DATA 8,120,8,8,12,12,12,12 

8 DATA 0,60,66,66,60,70,70,60 

9 DATA 0,60,66,66,60,6,6,126 


Dopo aver esaminato alcuni possibili caratteri, vediamo il 
programma sotto riportato che vi permetterà' di effettuare la 
definizione per conto vostro : 


9508 print TAB 7;"Generatore di 
cara tteri ' 1 

■351© P R1 NT "“per creare granci 
definiti dall'utente su una m a t r 
i c e di 3x8" 
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"Adesso premi 


t. a s 


Che Lettera p e 
definire ( a - u ) 


9520 PRINT -"(usa i tasti cursor 
e., ad es. 5-8 per i l movimento de 

i. cursore) " 

9850 PRINT '"Adesso premi un t a s 
t. o qualsiasi" 

9560 PAUSE 0 

9570 CLS INPUT "Che Lettera pe 

r ìl carattere da definire ( a -u) 

■? " j 2 * 

9680 LET z*»(2*+" ") (I): IF Z * < " 

a" OR Z*<"u" THEN QO TO 9570 
9590 CLS PRINT AT 12,0;"1-Lasc 

ia" ' "Cursori (S- 8 ) " ' , " 9 -Nero" - , 
" 0 -Cance LLa " 

960© FOR X =»9S TO 159 STEP 8 

9610 PLOT 16 , X : DRflU 64. , 0 

9690 PLOT X -- 79,95 : DRflU 0 , 64 : NE 


9610 
9690 
XT X 
9630 
NK 9 
964-0 
9660 


LET X»2: 

PRPER 9 
PRINT RT 
LET X1 « X 


LET y»2: OUER 


x «x + (INKEY*»" 
6" AND x <9) - ( INKEY*»"?" AND x > 2 > 
9660 LET yl*y: LET yay+(INKEYIs" 
©" AND y (è) - (INKEY*a"§" AND u > 2 ) 

967*0 IF INKEY$»"0" THEN PRINT AT 

x , yPAPER 7 ; INK 0.;** " 

9680 IF INKEY#="9" THEN PRINT AT 

X , yPAPER 0; INK 7,; " " 

969© PRINT AT Xl,ylj"X" 

97*00 IF INKEY$3"l r * THEN GO TO 97* 


9 §és; 

9 6 à ^ ' 
97*00 
20 

97 10 
9 7 20 


AND y>9) 
PRINT AT 

PRINT AT 


GO TO 9640 
OUER 0: PRINT AT 


" ; : FOR n «1 

9730 FOR Z ~£ 

974-0 IF ATT R 
a + (2t (9-z ) ) 

9750 NEXT 2 : POKE USR 2 *+(n-2),a 
9760 PRINT a.;",".; 

9770 NEXT ri : PRINT CHR* 8.; " " 

9780 PRINT ""IL tuo carattere e - 
fatto cosi " : " " "TAB 15.; CHR* (COD 
E 2 $+471 

9790 PRINT AT 17,0;"Premi"'"i-pe 

r definire il carattere .2-per 

unire i bLocchi"'"3-stop" 

9795 IF INKEY * < > *"* THEN GO TO 97 
95 

9800 GO TO 9800-(230 AND INKEY*» 
** 1 " :i + ( INKEY * = " 2 " ) 4 - (199 AND INKEY 

* ss ’ * 3 * * ) 

98 10 CLS PRI NT '‘Premendo i L t a 
sto -araphi c sara'";TAB 12; "stara 
pato. r * ""I tasti direzione muovo 
no entro i L box."' 'TAB 10 ,; "i-i„as 
eia"" •* TAB © ; " SPACE -canee L La" 

9820 PRINT . Premi quatsias 

i tasto": PAUSE 0: PRINT AT 9 0 ; 


TO 9 : L. 
TO 9 
( n , Z ) » 7 


AT 11,0; "DATI 
LET a»0 


7 THEN LET 


PRINT CHR* 8; " " 

I L t. u o carattere e ' 
** - "TAB 15; CHR* (COD 


1 -P e 
•per 
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9630 
W O , 
984-0 
98|0 

àèe§ 

pri 

9870 
ND X 
9880 

nd y 

989® 

9900 

9910 

9999 


PLOT 10S 
-36 : DRfiU 
LET x»10 
LET a«nX 
IF a * = ■• 
UER 0j 
IF «*>■" 
NT RT X , y 
L ET X 1 » X 
<13) -(a $ » 
LET yl*y 
< 16 ) - (aì« 
PRINT RT 
IF a*» 1 '! 
GO TO 9© 
> STOP 


,97: ORRW 36,0: DRR 
-36,0: DRflU 0,36 
LET y » 13 : OUÈR 1 
NKEY*: PRINT RT X.M 

" TMEN PRINT RT X, 

a" AND a*<«"u" THEN 
;CHR( (CODE aC+4-7) 

L ET x»x + (a$s"6" R 
"7" RND X >10) 

LET y ssy + (a #*"3" R 
©“ RNO M. > 13) 


“S" RND y>13: 

,,X TM^N' , GOi TO 
50 


97 90 


Come conclusione del capitolo, eccovi un semplice gioco 
impiegante qualcuno degli UDG sopra descritti. Dal vostro aereo 
in volo, dovrete colpire con una bomba, una casetta bianca 
lampeggiante. Lo sgancio avviene premendo il tasto "0". 


Elenco 

P 

X 


bomb 

a* 


delle 


yes 

R$ 


r 

a 


variabi 1. i 

Variabile di controllo dell’ aereo 
Variable della colorma dell' aereo 
Per verificare se la bomba e' caduta o 
Valuta la decisone del giocatore 
Se la bomba ha colpito la casa 
Stringa con la disposizione del suolo 
Usate per creare di oggetti al suolo 


r Colonna della casa 

h Punteggio 

i Usato nel loop per la definizione 

caratteri e per il lancio della bomba 


n 

SET UP, 
SCREEN, 
DROP 


Controllo dei vari loops 

Variabili "tokens" delle subroutines. 


no 


dei 


I caratteri grafici definiti in questo gioco sono 


linea 40 
linea 4110 
linea 4500 
linea 4523 
linea 4520 


graphic B,C,D. 
graphic E. 
graphic Fi. 
graphic F,G,H. 
graphic I,J,K. 


I PRINT grafici inseriti nello statement della linea 4130 sono 
messi a disposizione dai tasti da 1 a 8. 



REM 
10 : R f 


iH 


IT 

PL.RNE 
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PRINT AT 4,X 
flWD bomb THEN 


30 GQ SUB SET UP 
4.0 FOR X « 1 TO 28: 

; INK © ; " BCD" 

©0 IF' X NKEY$ *"0" 

(30 SUB DROP 
©0 BEEP .05, (X AND bo m b ) + ( RND * 
4.0 RND yes) - ( 10 RND NOT yc») 

70 NEXT X 

60 PRINT RT 4,28;" 

90 NEXT p 

100 FOR j. ~ 1 TO 100: NEXT i 
110 CLS 

120 PRINT RT 5 i 1; "Tuoi punti "; 
h " dopo 10 V O li" 

130 let a $ sa c " e c c « i lenta" rnd h ■» 

10) + ( "Ot t. i reo " RND h>7 RND h <10) + 
( "BUono" RND h > S RND h < 6) + ("Medi 
O" RND h >3 RND h <©) + ( "So ttO a l L a 
media" RND h > 1 RND h < 4 ) + ("RI. Un 
ali" RND h < 2) 

140 PRINT RT 7,16-(LEN a$/2) .1 at 
1S0 PRI NT RT 9.,4; "Ancora ■? P r e rn 


RT 11 


(si) o N ( no) 


160 GO TÙ 160+ (INK EY|a"n") + (514 
0 RND INKEY * ss " S " ) 

170 CLS PRINT RT 11,13; FLASH 
li"CIAOO" 

1990 STOP 

IREM *****»**INIZIO********* 
LET borri b s» 1 
GO SUB SCREEN 
LET y e s s®0 

FOR n=sl TO 100: NEXT ri 
RETURN 

REM ********SCHERMO******** 
LET I. $ ss " " 

FOR i ss l TO 32: LET fai NT (R 

+ 155) : LET a ss4 + ( INT (RND *5-2 


2929 
3000 
30 10 
3020 

!-S: 1 CUOI 


3190 

3999 

4000 
4010 
ND *f 


) RND r 0 155 RND r 0166) 

4020 LET l $ ss l. $ +CHR $ 16+CHR* a+CH 

Rf r: BEEP .005.i: NEXT i 
4030 LET r ss INT (RND *20+7) 

4100 BORDER S: PAPER 1: INK 7: C 


L. ’ a *i‘ 

4 110 PRINT RT 17,0; I. 

17, r; PAPER 0.; FLASH 
T RT 19,0 ; "E •' i l V O l O 
0 ; "Risultai o o ra " h 
4 120 PRINT RT 19,20; "PREMI " FL 

RSH l;"0": PRINT RT 20,20;"E SO 

ANCIA": PRINT RT 21,20;"LP BOMBA 


PRINT RT 
l;"E": PRIN 
,p;RT 21, 


W 


R I NT 




4190 RETURN 

4499 REM ******CA0UTA BOMBE***** 

4500 FOR i ss© TO 17: PRINT RT 
+ 2" R " 


1 , X 
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4-5 10 
, X + 2 
452© 
T RT 
4630 
4.5Ì0 
T y e 
4-590 

4 9 99 
5000 
5100 
5110 
5120 
5300 
5490 
©999 
9000 
9010 
i #3 : 
9020 
3 ) +n 
9030 
9100 
9 110 

5 4 15 
9120 
55 

9130 
, 24© 
9140 
255 
§150 
§155 
126 , 
9160 
120 , 
9Ì?® 
9176 
,255 
9180 


BEEP .02,50~i*2: P 
" '■ : WEXT i 

PRIWT RT 16,X+l;"F 
17 ,X + 1 ; '■ IJK" 

LEI" bomba©: LE'T ye 
fp xmr- 2 THEN L-Ef 
S » 1 : PR X NT RT 21,15 
RETURN 

REM *****INIZIRLIZ 
GO SUB 9000: REM U 
L. ET S ET U P a 3 000 
LET SCPEEN=4000 
LET D R O P“4 5 0 0 
LET h«0 
GO TO 20 

REM ****GRRFXCR UT 
RESTORE 9100 
POR i a1 TO 19 : BEE 
POR ri a 0 T O '? 

READ a : POKE USP. C 
, a : NE XT Ti: NEX'T i 
RETURN 

DATA 54,25,8,26,52 
DATA 192,224,240,2 
, 1 

DRTR 


RINT RT i 
G M“ : PRIN 
*. ®0 

h = h +1 : LE 

/, h 

ZRZIONE * * 
DG 


E NT E * * * * * 
P .01,60- 
H R $ ( i. +14 


DRTR 

DRTR 

DRTR 

DRTR 

60 

DRTR 

0 

DRTR 

DRTR 

DRTR 


0 , 7 , 9 , 17 , 255 , 

0 , 192 , 32 , 16 ,S 

©, 2 ©, 62 , 12 ©, 7 

0 , 3 , 15 , 63 , 63 , 
0 , 255 , 255,256 

0 , 192 , 240,252 

1 , 32 , 34 , 6 , 0.3 
60 , 163 , 90 , 90 , 

128 , 4 , 24 , 96,0 

3,28 
6 2 
19 


1 


9190 

DRTR 

© ,2© 

, 42 

, 73 

9200 

DRTR 

8,28 

, 2© 

,62 

92 10 

D RT R 

7,5© 

, 5© 

, 56 

, 255 

9220 
, ©0,2 
9230 

DRTR 

55 

252 , 

19 © 

, 19 

DRTR 

3 , ©3 

, 59 

, 19 

5 

9240 

5 

DRTR 

7,7 , 

7,7 

, 12 

9250 

DRTR 

0,254,24 6 , 

, 255 

9260 
49,25 

DRTR 

F! 

2 4© , 

24© 

, 7 1 


,62,28,8 

4 , 14 s* ,25 

255.224.2 

54,255,30 

3,73,126, 

63,30,0 
255,255 

,252,252, 

1,0,255 
2 4 1©9 , ©0 

,24©,0,25 

,42,S,255 
« 2 5* i © ,255 

é T 1 § © , 1 9 © 

5 5 , P 5 2 i 6 0 
i5© i 1© , SS 

22.122.2 5 
,7©,7©,7© 
,71,249,2 
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Note 

10 

Inizio 

20 

Loop per aereo 

30 

Predispone l' aereo successivo 

40-70 

Loop per muovere 1' aereo 

80-100 

Aereo successivo 

170 

Fine della «ara 

3000-3190 

Predispone la corsa dell'aereo successivo 

4000—4020 

Disegna il suolo 

4030 

Posizione della casa 

4100-4190 

Disegna lo schermo 

4500-4510 

Sgancia la bomba 

4520 

Esplosione 

4530-4540 

Setta le variabili di "yes" e"bomb" 

5000-5490 

Iniziaiizzazione 

9000-9030 

Grafica definita dall' utente 

9100-9260 

Dati per la grafica. 


30 



Capitolo 3 


SUONI 

Per produrre i suoni lo Spectrum usa il comando BEEP. Il 
formato dello statement e' BEEP d,n in cui "d" e' il valore 
numerico della durata della nota e "n" la sua tonalità'. Il 
principale vantaggio di tale comando e' X' estrema facilita' d' 
uso. Pur essendo costante, la qualità' del suono, permette la 
composizione di effetti assai gradevoli. Il maggior svantaggio 
e' che, durante l' esecuzione dei suoni, risulta inibita ogni 
altra operazione con conseguente rallentamento dell' intero 
programma. Per tale motivo, il suo uso viene ristretto in 
listati reiativanente lunghi. 

BEEP può' venire usato in concomitanza con gli statement di 
READ e DATA per comporre motivetti coi quali accompagnare i 
games, 

Provate quelli che seguono 


1000 

RESTORE 



30 10 

FOR i=1 TO 7 



3030 

READ dura t. a , n o t a 



303© 

BEEP durata , nota 



304-0 

NEXT i 



3 100 

DATA .3,7 , .1,3, . 

1,3, .3 

, 4- , .4. 

, 3 .. .3 

, © , . 3 , 7 



E' altresi' 

possibile ottenere ottimi 

risuItati 

impiegando 

dei loop FOR 

...NEXT come nei due esempi qui' di seguito : 

3000 

FOR n =10 TO -10 

STEP - 

EST 

» o 

3010 

BEEP ,03, ri 



3030 

NEXT ri 




3000 

FOR ri 

«10 TO 

-10 

STEP -.5 

3010 

BEEP 

. 03 , n 



3030 

NEXT 

n 



3030 

FOR n 

« - 10 T O 

10 

STEP .5 

304-0 

BEEP 

. 03 , ri 



3050 

NEXT 

ri 




Se vi siete divertiti, battete allora anche questo noto 
mot i vet-to : 


3000 



LET na-10: LET 
LET rei «rn -rn + «NOT 
LET n «n + 5 ~rn - (S0 
BEEP .lfiS.n 
GO TO 3010 


m » l 
rn i 
AND 


n > 4 .0 ) 
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Volendo., potete anche dotare il vostro Spectrum di un box 
sonoro (ottimo quello della Tenkolek. > per amplificare il 
segnale presente sulla presa di EFIR. Una buona amplificazione 
si ottiene anche usando da buffer il registratore stesso. Per 
far ciò', col legare un cavetto tra 1' uscita EFtR dello Spectrum 
e l' ingresso MIC del registratore dopodiché' dare il "play". 
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Capitolo 4 


USO DEGLI OPERATORI LOGICI 

Gli operatori logici sono : 

AND;OR;NQT;»;<>(diverso da);<;>;< = ;>= 

Tali funzioni vengono completate dalle espressioni matematiche 
+,r,* <moltiplicato) e / (diviso). Gli operatori logici possono 
sostituire IF...THEN come nell' espressione IF A“D THEN LET C=1 
equivalente a "A“B", Se l' espressione e' vera., cioè' se 'A' e' 
realmente uguale a 'B', l' azione prosegue attribuendo., nel 
nostro caso, a 'C' il valore 1. Analogamente agisce LET 
C>< fl*B), il cui nucleo e' "<A>=B>", le parentesi non sono 
necessarie all' atto pratico ma chiariscono maggiormente il 
concetto. Il computer valuta anche qui 1' uguaglianza e se 
questa risulta vera, rende a C il valore i, viceversa, cioè' 
nel caso in cui A sia diverso da. B, rende 0. Facciamo un 
esempio, supponete che tanto A quanto B valgano 5 : 

C**< A=B ) < oppure OA**B ) 

C-< 5-3 ) 

E' 5 uguale a 5 ? Si, per cui 
0» VERO 
O 1 

Si nota chiaramente come, l' espressione logica, operi alla 
stregua degli statement IF...THEN con la sola differenza che, 
questi mantengono il precedente valore della variabile e non la 
pongono a 0 come invece succede usando gli operatori logici se 
questa risulta falsa. 

Il segno non funge solamente da comparatore 


IF fìOB THEN LET 0:1. 
LET OC fì< >B > 


IF fl<B THEN LET C*1 
LET OC FKB 


IF fì>B THEN LET C=1 
LET OC fl >B) 
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IF fì< ~B THEN LET Ol 


OC fl< =b > 


IF fì>=B THEN LET Ol 

0<fl>*B> 

Impiegando espressioni matematiche al posto degli operatori 
logici,ne deriva che tutte le grandezze diverse da 0 vengono 
considerate vere e tutte quelle uguali a 0, false. I segni 
matematici possono essere inseriti in statement di IF...THEN 
come nella linea : IF A=*B THEN LET Ol. In questo caso l' 
espressione fl-B viene considerata esclusivamente numero, che se 
diverso da 0, rende vera l* espressione permettendo l' 
esecuzione del comando che segue THEN nella fattispècie LET 
Ol. Può' sorgere il dubbio che l' espressione fl-B, cosi' 
impiegata, equivalga a FlOB, ma ciò' non e' assolutamente vero 
come capirete battendo il programmino che segue in cui le forme 
interessate sono evidenziate in carattere inverso per una 
maggior chiarezza : 


10 

20 

30 

4.0 

ì 100 
50 
100 
©0 
7© 
©0 
100 
110 


LIST 

LET =15 

THEN LET 


IF 


R -B 


2=1: GO SU 

THEN.LET C = 1 : GO SUB 


LET C « CI 

LET O = C 

STOP 
PRINT "Cs"JC 
RETURN 


GO SUB 10© 
GO SUB 100 


Il risultato e' la dimostrazione che fl-B possiede un valore 
puramente matematico e non logico. 

Per esaminare i corrispondenti operatori logici dei segni 
matematici, dobbiamo prendere in considerazione le funzioni 
AND, OR e HOT. Anche queste possono trovare posto in statement 
IF...THEN: 

IF fi=5 AND B=6 THEN... 

IF A OR B=2 THEN... 

IF A< >0 OR B=2 THEN... 

IF NOT fl=B THEN... 

IF AOB THEN... 
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qui notiamo che la seconda e la terza linea riguardano la 
stessa funzione come pure la quarta e la quinta. Il loro 
impiego permette di inserire espressioni in statement relativi 
a “operazioni logiche". Nell'esempio,LET 0<fH=3 RND B=2>, il va¬ 
lore di C e' 1 solamente se fi e' uguale a 3 e B e' uguale a 
2. La funzione OR raggiunge lo stesso risultato con l' aiuto di 
IF...THEN. NOT invece, inverte il valore dell' espressione 
permettendo l' esecuzione sia nel caso di risultato vero <1>, 
sia nel caso di risultato falso <8?. In altre parole, trasforma 
gli "1" in "0" e gli "0" in "l". 

Visto ciò' e' ora possibile comprendere l' uso dei segni 
+, * e / come operatori logici. Se consideriamo le espressioni 
facenti parte di IF (espressione? THEN... , se ne deduce che : 

"fl-B" equivale a "ROB" 

"R+B" equivale a "R OR B". Notate pero' che se R vale 5 e B 
vale -5, il risultato della somma e' 0 anche se sono entrambi 
veri. 

"R*B" equivale a "R RND B" 

"R/'B" equivale ad R stesso, a meno che R sia talmente piccolo 
rispetto a B che il. risultato si approssimi a 0, rivelandosi in 
tal caso falso. 

Gli esempi portati finora per R e B valgono naturalmente anche 
per le stringhe fl* e B*. 

Come esempio, supponiamo ora di voler "simulare" l' espressione 
IF R=B THEN LET C a 3 con operatori logici. La forma equivalente 
risulterà' 

LET C>=<X RND espressione? 

dove "X" e' il numero <o la stringa? e "C" la grandezza a cui 
viene attribuito il valore "X" se l' espressione e' vera. Nel 
caso in cui risulti falsa, "C" varra' 0. 

Impiegando 1' espressione di cui sopra si otterrà' 

LET C=<3 RND R=B ? 

Rnche la funzione OR può' assumere una tale configurazione, 
naturalmente gli argomenti saranno diversi ; 

LET C* <x OR espressione? 

"X" e' sempre solo un numero in quanto con OR non si possono 
usare stringhe. Il valore di C in questo caso risulta i con 
espressione vera e "X" con espressione falsa. 

fl dimostrazione di ciò', fate girare il programma che segue 
mettendo in pratica quanto avete imparato dal capitolo e 
analizzando i risultati. 
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10 LIST : 
28 INPUT • 
l (non-zero) 
30 LET C« ' 
4-0 LET C«h 
50 LET C=i 
60 LET C* i 
70 LET C « i 
©0 LET C*h 


PRINT 


LET A»6 

T "Inserisci © come 0 o 
ro) ": B : PRINT "B*";I9 
Ce(Rete): PRINT C 
CeNOT (ReB): PRINT C 
Ce(S AND Re©) : PRINT C 
C « (R OR B) : PRINT C 
C«(R OR NOT B): PRINT C 
CeNOT (A OR B) : PRINT C 


SEMPLICE" RND NOT 


EUREKA RND B) 


Nell' impiegare i comandi sopra descritti, temete ben presente 
che, nell' eseguirli, il computer valuta la priorità' di uno 
nei confronti dell' altro', il cui grado di e' mostrato nella 
lista che segue 

"HOT" - Priorità' 4 

"RND" - Priorità' 3 

"OR" - Priorità' 2 

da cui deriva che i NOT sono eseguiti per primi, seguiti dagli 

RND ed infine dagli OR. La priorità' 5 e' assegnata alle 
espressioni. Pertanto, incontrandone una del genere, NOT R**B, 
il computer esegue prima fl*B e poi la inverte col HOT. Pensate 
ad un esempio in cui una astronave aliena di due caratteri, 
dall' altezza fissa si debba spostare attraverso allo schermo 
su di una riga ben specifica. Supponiamo che R sia. la variabile 
che si incrementa per muovere la nave da sinistra a destra e 
che la sagoma sia disegnata sullo schermo con PRINT RT 
h, fì ; "astronave" in cui "h" stabilisce 1. ' altezza costante del 
volo. Sulla parte bassa dello schermo, e' presente una base 
missilistica lunga un carattere la cui colonna e' memorizzata 
nella variabile B, mentre S contiene il punteggio (valutato 10 
per ogni singolo alieno? e gli spari del giocatore. Con tutti 
questi elementi potete già' stendere una linea di programma per 
incrementare il punteggio : 

IF B=R OR B=R+1 THEH LET S=S+10 

Usando gli operatori logici 

LET S=S+<10 RND fl=B OR B=fì+1> 

Dall' analisi vediamo che fi=B e' una espressione che, se vera, 
conferisce al blocco 10 RND R=B il risultato 10 che viene poi 
comparato col blocco B=R+1 il quale deve essere per forza falso 
<infatti R*B®vero>. Si ottiene in questo caso il test 10 OR 0 
che porta al risultato 10. 

RI contrario, se R“B risulta falso e B=R+1 vero, sta a 
significare che il giocatore ha colpito l' alieno di fronte, ma 
in questo caso il calcolo del punteggio S viene fatto in modo 
errato, vediamo : 
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1 > LET S=S+< 10 RWD 1=B OR FI+1=B > 

2 > LET S*S+< 10 flHD © OR Ft= 1 =-E 

3 > LET S»S+<© OR ft+1 =B 

4 > LET S=S+< 0 OR 1> 

? :> LET S=S+< 1 > 

s:> LET S*S+1 

Tutto torna alla normalità-' dando priorità-' all' esecuzione 
dell' OR per cui e' necessario l ' intervento di una seconda 
coppia di parentesi 

LET S*S+<1© HNO< R=*B OR fl+l=B > > 

Gli operatori logici trovano spesso impiego nei programmi dei 
giochi in quanto : 

1 :> Sono piu' veloci dei loro corrispettivi IF...THEN. Ciò' si 
dimostra facilmente facendo girare i due programmi che seguono 
e rilevando per ognuno il tempo <in 100esimi di secondo > 
impiegato per giungere al termine. 

Programma 1: usando IF...THEN 


10 POKE 23672, 
20 POKE 23673, 
30 POKE 23674. , 
40 LET a«0 
B@ LET b «4 
È0 POP i*l TO 
70 IP b*4 THE N 
©0 NEXT i 
9© PRXNT "a»";a 
100 PRXNT "tempo 


0 

0 


1000 

LET 


a = a +1 


EK 

72 


23674 +25© *PEEK 


» ";6S536#PE 

23673+PEEK 236 


Programma 2: usando gli operatori logici 


10 
20 
30 
40 
5 0 
60 
70 
©0 


10 
EK 2 
72 


POKE 23672 
POKE 23673 
POKE 23674 
LET a «0 
LET b-4 
POR x »1 TO 
LET a=a + (b 
NEXT i 
PRINT "a a" 
PRINT "te m 
3674 +256 *PE 


0 

0 

0 


1000 
a 4 ') 

i a 

Ik 


©5536 *PE 
2 3 © 


2> Diminuiscono la complessità' del programma. Esaminate la 
linea, che segue : 
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©0 FOR i «1 
TMEN PRIWT RT 
) a * < rn + i j i - c a 


TO 3 : 
b + i + i 
AND a 


IP a % < i ) < > b * 

, a - ( a AND a-10 
< 0 ) to > 


Volendo ottenere sii stessi risultati con sii statement di 
IF...THEN e' neccessario impiegare piu' linee : 


©0 FOR imi TO 3: IP a * Ci ) «b* T 
hen GQ TO ©0 

©2 IP a <0 THEN PRIWT RT b + i+i , 
0.; a * erri +i , l~a TO ) : GO to 60 
©4. PRIWT RT b + i + i .. a ; a I ( rn + i ) 

©0 rem ....rasto dei programma 


3> Provocano un minor assorbimento da parte del banco di 
memoria in quanto occupano meno spazio di IF...THEN come 
dimostrato dagli esempi di cui sopra. 

Nei programmi racchiusi in questo volume si e' fatto un largo 
impiego di operatori logici cosi' come si può' notare anche 
nel prossimo dal titolo "Bomber". Il game consiste nel 
bombardare una citta' per potervi creare spazio per l' 
atteraggio. Le istruzioni dettagliate, sono insite nel 
programma stesso. 


Note 

18 

20-98 

100-160 

170-180 


60 

140 

500-540 


3000-3050 

4800 

5000-5060 
8010-8080 
8110-8178 

8500-8590 

8560 

9000-9360 


Inizializza le variabili, scrive le istruzioni. 
Loop ripetuto per muovere l' aereo. 

Linee eseguite quando la bomba e' sganciata. 

Reset delle variabili quando la bomba termina la 
caduta. 

Disegno dell' aereo 
Disegno della bomba 

Presenta il nuovo punteggio e calcola le bombe 
lanciate. 

Interludio tra due parti. 

Dati per il motivetto. 

Fine del programma. 

Definizione delle variabili. 

Scrive le istruzioni, che volendo possono essere 


riscritte. 

Predispone lo scenario disegnando lo schermo. 
Mette otto grattacieli in S <29> 

Definizione della grafica, 
fi e B - aereo 

C e D - bomba 

F. - grattacielo 

F - grattacielo piu' alto 

G - Resto del grattacielo bombardato. 
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10 GQ S* 
19 REM _ 
30 LET a 


^«12*4651 


x , y 


4.0 LET y ssy+1- (31 AND ya30) : L-E 
T x *x + (a OR f < l OR u=0i~(a$ 

*■•1" AND X > 2 AND f > 0 5 : LET fsf-( 
fi AND a*a"l" AND f>l) 

50 IP ATTR (X ,y> < > 7 OR ATTR (x 
, y + 1) < >7 THEN GO TO MllgÉaai 

60 PAINT AT X.y; INK TT "RB “ 

70 ip x=ai thém go to iterare! 

©0 IP INKEV**"P" AND di AND b T 
HEN LET rn =0 : LET bx «X : LET by »y 
SS LET f « f- (dd/7S AND f >0) 

©7 POR i « f TO ft : PLOT IMK ©li 
+ 4.0,160: DRAU IMK 6.10,7: NEXT i: 
LET ftaf 

90 IP rn THEN BEEP . 03 , RND * 10-3 
0: GO TO LOOP 
100 PAINT AT bx , by ' 1 " 


110 LET C=«C+1: LET cbscb+tllb: IP 

CbaS OR bx»ai THEN GO TO 160 

130 LET bysby + (C <S RND Cb=0) - (3 

0 RND by sa30 ) : LET bx=bx+l 
130 IP RTTR < bx , by ) <>7 RND rn b =0 

THEN LET fri b«1 : POR i *S !by) TO b 

X: PRINT RT i , by .1 " " : LET ftMft+l: 

NEXT i 

1Ì0 PRINT RT bx , by ; ("C" RND ( C 
S OR Cb) ) ; CD” RND C < S RND Cb=8) 

1S0 LET s*S+(fib: GO TO LOOP 

160 IP bx<31 THEN PRINT RT bx,b 
y; INK RTTR ( bx+1, by> ; "G" 

170 LET meri: LET mbssft: LET Cbss0 
:_LET C ss0 : LET b se b - 1 : GO SUB BlBWn 


INK 7 


100 : POR is=l TO 7: 
BEEP du rx1„5,n ot : 


si® ^ § i 

320 PRINT RT 0,27.: "000 M : RT 0,30 
•fe!§ INK ? 

afa® B g T U JBiIÌ.__ 

3000 re HrVmrmsr to 7: 

RERD d u r , n o t : BEEP d u r l.S.not: 
NEXT i 

3010 CL5 PRINT RT 10,6; PLRSH 
l;"MISSIONE COMPIUTA" 

3030 PRINT '"Maggiori ostacoli , 
meno carburante , " 

3030 LET ddssdd+3: LET bsb+dd : LE 
T fs21S: LET ft, = f 

304-0 POR i srl TO 350: NEXT i: GO 
SUB SCREEN 

nn t n c?i 

3999 RÈSM sinfonia del 'successo' 
4.000 DRTR 1,7,1,7 , .5,6, . 5,7,1,9 , 
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<2s! , 4 .i i 
4.999 
'.000 


• £ 

REM 
PRIN 


5010 FOR i 


X 
TO 


*60-20: NEXT i 

5020 FOR i=S0 TO 
EP .01,i: NEXT i 


y ; 

4-0 


IN K 4- 
BEEP 


RB 
0 1 


1030 CL5 

a tì ora 11 
04-0 PRXNT 
FALLITO " 
5050 PR.INT 
re " ' ' " 


PR X NT 
S 

RT 10 


-30 STEP -1 
RT © , 2 "TUO 
© .; F L R 5 M 1 


RND 
BE 
p u 
HRI 


""-per 
Fi U N per 


c u i d e v i 

giocare 


P r e m e 
di n u 


ri vo 

5060 ©TOP 

©000 GO SUB 9000 : 

©010 LET S«0: LET 

15 : LET t ta f 

S0S0 LET dd=l© 

LET mal: LET 

Hi b a 0 

REM ROUTINE© 

LET CRRSH=5000 
LET LRNDs3000 
LET SCRE£N=8500 
LET UPDflTE»500 
LET LOOP=20 

-- pp) p ER 


©030 
LET 
©033 
©04-0 
©05© 
8060 
8070 
© 0 © 0 
©100 

©1 10 
e r " 


REM UDO 

b a 100 : LET f*2 


C a0 : L.ET Cb«0 


BORDER 
PRXNT TRB 


XNK 


12.; FLRSM 1 


i o n e 

©130 
t a •• . 

i a n t arti • ■ r 

orante , * 1 
©140 PRXNT 


PRXNT •• "flt 
C O Hi andi l. 
PRXNT 
D evi a 


7 : C 
B O Hi b 
miss 


b :• 


tento sei in 

aereo v e r d e " 

sopra ta cit 
senza : a) ©eh 
Restare senza carb 


v o L a n d o 

1.1 errare 


e s e c 
n t e , 
i v era 

© 150 

, , 

c i a L 
8160 
e t t a 
©170 


ond o 
m a se 

i s e n z 
PRXNT 

( s u J .. e 
e b o ri i b e 
PRXNT 
L a rn i 

PRXNT 


"De v i s o f f r ire qu a Uh 
' " scendendo rap i darne 
sei fortunato sopravv 
a schiantarti 


I tuoi comandi sono 

O " c g i u ' ’> . " P •' s g a n 


to p er b o mb a rdare 


S e +. i rie s c e , ti s- p 
s i one piu' dura. 

P r e m i q u a L s i a s. i t a s 


© 1©0 
©3 0 0 
©49© 

8499 

8500 
LS 

©510 


PRU5E 
D x ri s 
RETUJ 
REM 
BORDI 


0 
( 29 ) 


CL^ 


GO SUB 


• GREEN 


PAPER 


©.; XNK 
>.» 00 ",' 


PRXNT RT 0,0. 

l; "PUNTI«0000" , "BOMBE 
CRR. : " i PAPER 4, , 

8520 FOR i«1 TO 29: LET height*! 
NT (RND* 12) +5 : LET in Ka XNT ( RND * 
6 ) +1 
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Ì530 IF RND> d d/30 THEN GO TO S5? 


354.0 
1 : PR 
3550 
8550 

"F" : 

§ 57*0 

|0Q 

Ì0Ì0 > 

9030 
i ) +n , 
9030 
9300 
0 , 0 
93X0 
, 33 
9330 
9330 

|34§ 

9ésSl 

936© 


POR n «31 TO height+1 5TEP - 
XNT RT n , i ; XNK i n K ; " E " 

BEEP .003,(30-0:1*3: NEXT n 

PRINT RT h « i g h t , i ; XNK i n K 

L. ET s ( i > sheight 

NEXT i: GO SUB UPDRTE 

LET X ** 2 : LET y «0 

RETURN 

REotORE 9300: POR i*l TO 7 
POR n*0 T O 7 

READ a: POKE USR CHR* (14.3 + 

A: NEXT n: NEXT i 

RETURN 

DATA 193,192,327,15© , 137 0 , 

DATA 0,162,24-3,63,24-2,34. , ©0 

D RT R 3 4. , 2 © , © , 3 © , © 2 , © 2,3 ® , 8 
DATA 32,16,160,93,30,31,15, 

DATA 127,73,73,137,73,73,12 

DATA 0,3© ,8,26,4-3,73,73,137 
DRTA 0,0,3,è©,©3,©0,119,127 


E1. eneo de li. e var i ab i 1. i 


y 

•a* 

f 

b 

m 

bx 

by 

dd 

ft 


cb 

mb 


s< 29 > 


n, i 
a. 

height 
ink 

dur,not 


Numero della riga del 1' aereo 
Numero della colonna dell-' aereo 
Usato per leggere la tastiera. 

Carburante usato 
Bombe sganciate 

F1ag di quante bombe sono state sganciate 
1 nessuna 

Numero della riga della bomba 
Numero della colonna della bomba 
Grado di difficolta' 

Usato per- diminuire il carburante 
Contatore delle bombe che colpiscono. 
Distruggono 5 piani oppure cadono a vuoto. 
Contatore delle bombe che cadono a vuoto 
Incremento di "cb". Vale 0 se la bomba 
colpisce, 1 se va a vuoto. 

Punt i 

Array contenente otto grattacieli. Viene 
usato per cancellare 1' edificio quando 
questo e' raso al suolo. 

Variabili di controllo dei loops 
Legge la grafica definita da utente 
Usato nel disegno dei grattacièli 
Colore dei grattacieli 
Variabili di lettura per il motivette 
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CRASH .i 
LAND.. 

SCREEN, 

UPDATE, 

LOOP "Tokens" per le subroutines 

Le lettere maiuscole alle linee 60.. 148.. 160,3000,8540 e 8560 
vanno battute in "graphic mode" e servono a generare i 
caratteri richiesti. 
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Capitolo.5 


MOVIMENTO 

Gran parte dei games, per non dire tutti, possessione oggetti in 
movimento che rappresentano figure spesso bizzarre come i 
"pacmen" e le navi spaziali. Le difficolta' piu' evidenti nello 
scrivere programmi nascono dal fatto che : 

a> il BfìSIC non e' sufficientemente veloce per muovere 
contemporaneamente diverse immagini.. 

b> 1' animazione e' a scatti; piu' a lungo una immagine si 
ferma sullo schermo e peggio e', 

c> gii oggetti non devono travalicare i confini imposti dallo 
schermo, 

d> le varie parti non possono "sapere" in che direzione 
spostarsi; ad esempio gli invasori spaziali si muovono solo a 
destra e a sinistra, 

e> il computer deve esplorare lo schermo per rilevare le 
eventuali collisioni di due oggetti <ad esempio, la racchetta 
con la palla>. 

Tutto ciò' si verifica su uno scenario di sottofondo mantenuto 
fisso. L' oggetto viene stampato SPRINT> o disegnato <PLOT> in 
relazione ad una serie di coordinate x e y, quindi cancellati e 
ridisegnati con una o con tutte e due le coordinate cambiate di 
valore il che dona l' illusione del movimento. 

L' effetto dello spostamento a scatti e' appunto dovuto al 
fenomeno di cancellazione-ristampa e la sua intensità' dipende 
dal tempo intercorrente tra le due azioni. Va da se' che piu' 
rapidamente la figura viene ripresentata dopo essere stata 
cancellata, piu' si ha la sensazione di un movimento costante. 
Il programma che segue, stampa un quadratino nero al centro e 
lo sposta fino alla fine dello schermo ; 


0 PRINT RT 10 , y ; "| 


Rlh. 
J0 PRIK 
4-0 LET 
60 GO 


JT RT 10 , y ; *• 

y «y +1 

U S0 


Provatelo e vedrete il quadratino lampeggiare scorrendo verso 
destra. Come si può' migliorare“un tale effetto ? Un rimedio e' 
quello di inserire il calcolo di avanzamento, di cui alla linea 
40, tra il disegno e la cancellazione dell' oggetto il quale, 
pertanto, si ferma sullo schermo il tempo necessario al calcolo 
delle sue nuove coordinate. 

Il risultato si ha col programma che segue in cui e' stata 
prevista una temporanea memorizzazione < linea 20 > del vecchio 
valore di "y" per non far stampare erroneamente la linea 30 : 
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10 LET y 30 
20 LET t *u 
30 PRINT ftT 10 j y j "| 
4.0 LET y =y+l 
©0 QO TÙ Si0 


Nonostante questo accorsi mento, il lampeggiare dell'' oggetto e'' 
ancora percettibile. Provate allora ad aggiungere una linea che 
prolunghi la permanenza dell' immagine per mezzo di un loop 
FOR....NEXT oppure di un bit musicale : 

45 FOR N=1 TO 5 :NEXT H 
45•BEEP .81,RHD*20 

Il programma cosi' scritto conduce pero' ad un errore in quanto 
porta il computer a scrivere dove non gli e' possibile. Fatelo 
girare e rilevate il messaggio che appare quando si blocca. 

Per ottenere un effetto analogo potete impiegare il loop 
FOR....NEXT come segue ; 


10 FOR y»0 TO 31 
20 PRINT RT 10 j y i 
30 BEEP .01,RNO*20 
4-0 PRINT RT 10,y; " *• 

S0 NEXT y 


Se lo spostamento del quadrato avviene di una 
volta in linea retta., si impiega di solito uno 
PRINT che cancelli la figura disegnata dal primo 
ultimo quadretto non viene cancellato ; 


co l oncia alla 
statement di 
Notate che 1' 


10 FOR y *0 TO 30 
20 PRINT RT 10,y;" 
30 BEEP .01.RNÒ*20 
4-0 NEXT y 


Gli "Asteroidi" e i giochi Arcade rimediano ai limiti di spazio 
imposti dai bordi facendo girare attorno gli oggetti., per 
meglio capire, una astronave che esca dal lato destro dello 
schermo, rientra immediatamente da quello sinistro progredendo 
nella sua corsa. Sullo Spectrum, questa funzàne si implementa 
facilmente come dimostrato nel programma sotto riportato. La 
grandezza "y" che e' il numero della colonna nella quale e' 
disegnato il quadretto, una volta giunto a 32 torna a 0 
ripresentando da capo il disegno. Per ottenere un egual 
risultato in verticale, andrà' interessata "x" con valori da 0 
a 22. 
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10 

LET x 

2 0 

LET a 

30 

PRI NT 

40 

LET X 

RND 

X «221 

50 

LET y 

60 

PPINT 

7© 

GO TO 


= 0 : LET y -0 
= >: : LET bau 
RT x. .< y " 1 R 
«X 4 < y a31J : LET 


X a x — (22 
*31i 


Con ciò' affrontiamo 1' argomento circa la "conoscenza" del 
percorso da parte degli oggetti. Il prossimo programma mostra 
un invader., nella fattispecie la lettera "V"., che si sposta 
prima verso destra. poi verso sinistra scendendo in 
continuazione verso il basso ■ 


10 
20 
30 
4-0 
50 
60 
, RND 
70 
e z i o 

X a 2 
90 
90 


BORDER 4 : 1NK 9 : 
LET X a0 : LET y a0 
LET di razione»! 


C L £ 


LET a «X : LET 
PRIWT RT x , y; 
LET yay+direz 
*20 

IF y»3l OR y = 
ne =-direzione: 
2 TMEN STOP 
PRINT RT a b 
GO TO 40 


bay 

FLRSH 1; 
ione : BEÈP 

0 THE N LET 
LET XaX+1: 


d 


0 1 

i r 
XF 


La variabile "direzione" contiene il numero da addizionare <o 
da sottrarre se e' negativo :> a "y". Alla linea 70 i l programma 
testa se l' invader ha raggiunto uno dei margini dello schermo, 
se si. la variabile "direzione" viene invertita di segno. La 
stessa linea incrementa "x" facendo scendere V invader verso 
il basso fino a raggiungere l' ultima riga del quadro alla 
quale il programma si ferma. 

Prima di addentrarci nella "conoscenza" del senso di marcia da 
parte degli oggetti, provate i due programmini che seguono i 
quali fanno "rimbalzare" l' oggetto stesso sui bordi dello 
schermo per mezzo di PRINT negativi : 


'Rimbalzo' sull' asse y 


10 

20 

30 

40 


x 


LET 
PRI NT 
LET 
GO T 


s 0 

T RT x . y : y 
y*y + l: L ET 
0 20 


LET 


y ss - 10 

x » x +1 


'Rimbalzo' sull' asse x 


10 

LET X 

ss - 1S : 

LET 

y =0 

20 

PPINT 

RT X 

.« y y 


30 

LET y 

ss y +1 : 

LÈT 

X ss X 41 

4© 

GO TO 

2© 
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Queste proprietà' vergono usate ir* molti giochi tra cui lo 
"squash" e' quello che le evidenzia maggiormente. Il nome della 
variabile usata per la direzione e' di solito "d" oppure "dir" 
e., nell' esempio dell' invader a "V", assume due valori ben 
precisi : 

a> 1, nel qual caso l' incremento vale le l' oggetto si 
sposta verso destra, 

b> -1, in cui si ha un decremento con V oggetto che si sposta 
verso sinistra. 

Sempre nello stesso esempio, il valore del "marker" di 
direzione viene inserito direttamente nel calcolo : 

LET Y®Y+direzione 

e una tale forma può' essere usata in qualsiasi momento per 
indicare dove l' oggetto deve prendere posto ma non per 
calcolare il movimento. Il valore del "marker" e' compreso tra 
0 e 3 ed i numeri singoli si riferiscono alle direzioni : 



E' molto difficile manipolare detti numeri per 
direttamente nei calcoli per il movimento, pero' e' 
ricorrere all' aiuto degli operatori logici visti un 
addietro. Guardate : 

■' x•' e' la coordinata x < ^ > 

•' y ■’ e •' l a coord i nata y < —> > 

■'d■’ e - ' il puntatore di direzione con i 
corr i spondent i a l d i ayraroma. 

Cosa succede a 'x' e 'y' per diversi valori. 

1000 L.ET x~x H d-1 OR d-2 >“•< d*=0 OR d=3 ) 

.1.01 @ LET y*y+< d< 2 >-< d > 1 > 


inserirli 
possibile 
capitolo 


valori 


Se un oggetto, nel suo spostamento urta una linea orizzontale 
(vedremo come piu' avanti analizzando SCREEHS e RTTR>, può', 
sempre usando gli operatori logici, rimbalzare cambiando 
direzione : 
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1999 REM urto de L u linea or izze 

3000*LET d*d+l- (£ AND <d»3 OR d * 
1 ) ) 


non siet 

e del tutto convinti 


che 


una sola linea possa 

imbiare correttamente i valori 

d 

i 

"d" 


battete quanto segue e 

sfrontate 

lo col diagramma 






1® 

INPUT "IL V 

a 

L 

o r 

e. 

di - d - e ' 

l d 
20 

P R INT "Vece 

h 

i 

O ss 

i i 

d 

30 

GO SUB 2®00 






4® 

PRINT "NUOV 

o 

se 

11 • 

A 

d 


se!? 

ggrSSN 10 







Un altro metodo, si presenta con l'adozione delle stringhe di 
variabili e di VftL.. Per vedere T effetto di dette funzioni, 
battete questo programma dimostrativo 


|| 

21 , 0 , 
insei 
3® 
4® 
5® 
6® 
7® 
" z ~ 1 1 
8® 
90 


Ì NPUT " Co m e ti chi a rn i •? •• ; a $ 
F LEM a $>1© THEN PRXMT RT 
"Troppo lungo .per favore re 
iSCì": BEEP S,-10: GO TO 10 
LET Z os 0 ; LET z* = "z + r' 

POKE 33692 , -1 : REM SCfO l l 
PAI NT TflB Z X N K R N D * 5 a « 
BORDER RND *7 : .LET Z «URL T% 
XF Z »32 — LEN a $ THEN LET z $ » 


IF 

GO 


Za® THEN 
TO 4® 


LET Z # a"Z +1 1 


La collisione di due oggetti, come ad esempio un missile ed un 
invasore spaziale, viene rilevata facilmente testando la 
variabile dei due oggetti stessi IF X unissi le=H invader FIND V 
missile=Y invader THEN... 

Ciononostante, la via piu' facile, resta quella di esplorare 
direttamente lo schermo per mezzo di uno dei tre sistemi 
sottoelencati <anche se il terzo lo sconsigliamo) : 

1> SCREENS. Questa funzione rende una stringa e va inserita 
con la forma "SCREENS < x, y ) " dove "x" e "y" rappresentano 
le coordinate cosi'come per lo statement PRINT flT.Non lavora 
con gli UDG,ma solo con i caratteri che ritornano normali anche 
nel caso in cui siano inversi. 

2) FiTTR. Rende un numero che dipende dagli "Attributi" della 
cella definita dalle coordinate. Gli attributi sono il colore, 
il flashing e il brightness. Il relativo statement e' "flTTR 
<x,y)" della medesima fisionornia del precedente. 
flTTR e' la somma di : 
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1.28 <10000800 binario) se il carattere lampeggia con FLASH 1., 

64 <01000800 binario) se il carattere ha luminosità' p.iu' 
accentuata con BRIGHT 1.. 

8 il colore di PAPER che occupa il terzo, il quarto e il 
quinto posto dell' equivalente binario. 

ATTR e' molto usato, in quanto non distingue se il carattere 
che sta esaminando e' un UDG o meno, 

3> POINT. Rende 1 oppure 0. La forma del suo statement e' 
classica "POINT <x,y) in cui "x" e "y" vengono impiegati come 
in PLOT x,y. Il risultato della funzione e' 1 se le coordinate 
'pescano' un punto, mentre e' 8 se riscontrano un vuoto. 

Vediamo ora la velocita'. Deve essere tale da mettere in 
condizione il giocatore di poter sparare agli invaders che 
scendono spostandosi casualmente a destra o a sinistra. Sia la 
base che gli alieni, possono uscire dai margini laterali dello 
schermo per riapparire dal lato opposto nella stessa posizione. 
Gli invaders, quattro in tutto, vengono presentati dal computer 
uno per volta rendendo la gara assai interessante anche perche' 
a loro volta possono sparare alla base. 

Le coordinate di ogni invader, sono memorizzate in due arrays, 
l' array "a" per le coordinate verticali, il "b" per le 
coordinate orizzontali. I suoi movimenti sono funzione di 
quelli della base e vengono determinati dalla variabile "i" 
presente nella linea 28. Fatta questa doverosa presentazione 
eccovi il programma con relativa documentazione» 


Elenco delle variabili 
h Record 

a.S< . > Array di caratteri contenente la forma degli 

alieni. 

e*<. > Array contenente l' immagine dell' esplosione, 

s Punti. 

men Numero delle basi rimaste. 

a< . ), 

bC. > Coordinate x e y degli invasori, 

p Numero della colonna della base, 

i Usato nel loop principale per il movimento degli 

a l i en i . 

il Usato per calcolare "i". 

ti Numero di pixel della base nello sparo, 

dr Sviluppa la traiettoria in salita dello sparo 

della base. 

Usato per calcolare se l' invader e' stato 
colpito. 

t£, 

tl Numero di pixel delle coordinate x e y quando 

spara l' alieno. 

dr Sviluppa la traiettoria in discesa dello sparo 

degli alieni. 

i, 
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n 


Variabili per il controllo dei loop 


ni.. 

c* Usate per la fine della gara. 

Le lettere maiuscole nelle linee 140,1010,1020,1040,1510,1320, 
7710,7720 riferiti agli statement di FRINT sono tutti caratteri 
definiti dall' utentetUDG> 

Note 

10 Iniziai izza le variabili e scrive le istruzioni. 


20-100 

Parte det loop per muovere 9 li alieni e 
sparare« 

per 

105-160 

Parte del loop per muovere la base e per sparare 

1000-1060 

Calcolo del fuoco 


1400-1420 

Fuoco 


1500-1540 

Calcolo del fuoco 


1900-1920 

Fuoco 


2000 

Incrementa il punteggio 


3000-3020 

Esplosione della base 


4000-4070 

Fine di una parte 


4080-4180 

Fine della gara 


7000-7100 

Scrive le istruzioni 


7500-7530 

I n i z i a l i zza 1. e var i ab ili permanent i come 
esempio il punteggio. 

s.d 

7600-7800 

Iniziai izza le altre variabili e disegna 
schermo 

lo 

9000-9030 

Definisce i caratteri UDG 


9050-9150 

Dati per gli UDG 


9500 

Dati per la fine 


ggcig-gggg 

Fine. 




1© 

G O T O 

7000 
l = i : 

REM 

i s t r / i n i z 


2© 

LET i 

LET i 

ss i + 1 — ( 4 R N D 

i 

11 +3 






3© 

XF a ( 

il > as 2 

THEN 

P R X NT RT a ( 

i 

i , b •: 

i :• i. “ 
L.Et a 

1 1 




4.© 

(il =a 

(i 1 + 1 

: LET b (i 1 = b 

( 

il ~1 + INT 

i R N D * 

•**Sj *| 



5© 

IF bi 

i 1 *32 

'"THEN 

LET b ( i 1 ss© 


6© 

XF b ( 

i 1 «s-1 

THEN 

LET b ( i 1 ss3 1 


7© 

XF a ( 

■i 1 si 7 

O R a 

> 

(il =1 S THE N 

PRINT 

RT a 

( i 1 , © 



6© 

XF_ ai: 

i 1. ~S© 

THEN 

GO SUB 3©00 


R E m 

■3© XF a I. l ì > a2 THEN PRINT flT a( 

il . b ( i ) ; a $ >: i ) 

100 XF' a ( i 1 > =2 AND RND > .'3 THEN 

OD SUB 15©© : REM tSla CTà Bl 

RM T ° 4- 13 ® 0 : R 

i X N K EY <à = " 2 ' ' 1 - (IN K H Y $ = ■ ' i • • T " p ~ r ~ f 
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IF p»-l 
XF P =32 
PR I NT 
IF ir 
REM 
G O T 
REM 
LET 

IF RTTR 
PRIMI RT 
RETURN 
IF RTTR 
GO SUB 
RETURN 
POR x«l 

I F P ss b ( X 


TMEN LET p=31 
TMEN LET p= 0 
INK 2 l RT S0,,PJ "fi" 

,, 0" TMEN GO SUB 



12 0 
130 
14.0 
150 
000 : 

160 
9 99 
1000 
1010 
r ss© : 

400 : 

1020 
r sa 2 4 
"D" 

1030 

1040 IF pssb(X) TMEN LET dr ss (21-a 

« X :• J *8-16: PR I NT RT a ( X :• , p ; " D " : 
GO SUB 1400: PRINT RT a ( X ) , P " *' 

GO SUB £000: RETURN 

NEXT X 
LET d r - 13 '? 

DRRW INK ; 0 .. d r : BEEP .05,3 


( 18 ,i p ) 

18 , P 

( 17 , P •' 

1400 : 

T O 4 
.1 TMEN 


n, ìs 

s»6 TMEN LET 
"D”: GO SUB 

ss 6 TMEN LET 
PRINT RT 1? 


d 

1 

d 

P 


1050 

1060 

1400 

0 

14 10 
ER 1 , 
14 £ 0 
1499 


OUER 1 t l , 16 


1 ss b ( x 
15 10 
T df 
T 17 
ISSO 


.i * S - : 

t a 

) |l sa © 


PLOT 
0 , d r 
RÈTU 
REM 

LET t2 = Ol-a t. x 
i *6+4 : PLOT 1 1 , 

IF RTTR (17,b(x 
t £ - 3 2 : G O S U B 1900: 
b ( i 5 : "O" : RETURN 
IF RTTR ( 1© , b ( i :■ :• ss© 

T dr sstS-40: PRINT RT 16 . b 
GO SUB 1900: RETURN 
IF b ( i ) s»P 
SUB 1900: 


DRRW OM 


i n v a d e r s 


LET t 


T H E N L 
PRINT 


E 

R 


TMEN LE 
( i ) "G" 


1530 
: G O 
R N 

1540 
19 0 0 
0 


TMEN LET dr 

GO SUB 3000 


12-16 
R ET U 


LET d r ss t. 2 
DRRW INK 3;0 


•d r 


BEEP 


05 


1910 PLQT 
R 1:0, ~ d r 
1920 RETURN 

1999 REM H 

2000 LET Ss«s k +5 
(LEN (STR$ S) 


a ( x :i 


OUER 111,12 


DRRW DUE 



20 2 0 L ET 

ND*32 !» 

20 30 RET U 

29 99 RE M 

3000 POR nL0TO T 
301O P RINT RT 2 0,P 
BEEP .05,RND*30 
3020 NEXT x: NEXT n 

3 03 0 C L S L ET rii en= rn e n 
3 0 4 0 GO S U B ? 60 0 
3050 RETURN 

3999 REM 


PRINT RT 1 , (5 
PAPER 4.: INK 

LET b ( X !' =s INT (R 


Ol 
CHR$ 


X sa 1 TO 2 
( 144+ X :• : 
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4.000 PRINT RT I 81 IU FLASH 
PER 3; INK ?;"SARA FINITA" 

a n becT noe: oeniTi . enei _ -i 


1.; 


PR 

IN 


4-010 RESTORE 9500: POR 2.-1 TO 
T (RND*5) +1: READ C * : NEXT Z 
4-030 PRINT RT 11, 15 - (LEM C$) /2,: 
INK 0iCi 

4.030 LET rn =0 : POR i =0 TO 31: LET 
bÉsSCREEN* (11,i) 

4.04.0 PRINT RT ll,i;CHR* (181+M) : 

BEEP . 05 , R N D * 4 0 

4-050 LET m «rii -rii + (NOT rn :» : PRINT RT 
11, i INK 4 .b $ 

4.060 NEXT i 

4.070 PAUSE 100 

4080 BORDER 1: PRPER 6: INK £2: C 
L. S 

4090 PRINT RT 2,6;" Punti ; 

4100 PRINT IP s < ah THEN 
tre 7 : " IL record e" M ;h: 

4.130 

4110 PRINT TAB 8;" IL nuo 

4120 LET h=S 

4-130 PRINT PRINT " UUOi 

n'a Itr 
SH lj " 

4 140 P 

4150° G0 n TO 4 160 + CINKEY* *"y") + (58 
40 AND INKEY $ ss" n " J 

4160 IP INKEY*O"" THEN QO TO 41 

60 

4 170 PRINT PRINT "UUOi Le istr¬ 
uzioni y/n ?" 

4 160 GO TO 4180 + (2970 AND INKEY* 
ss " ri " ) + ( 2640 AND INKEY * s* " y " ) 


PRINT 
GO TO 


o 


ree o 


fare u 

a r ti ta a " RT 5,13 ; F r L.R 
T PRINT TAB 7;"Premi 


'000 LET Hi =S 0 


GO 


7010 DIM a * ( 4 ) : DIM e$ (2) 

B 9000 : REM UDG 

7020 BORDER 6 : PRPER 3 : INK 7 : 

L S 

7030 PRINT RT 1,14.; FLASH 1; "ZAP 


S U 

c 


7040 PRINT : PRINT "ECCO gLi ali 
ani ! Distruggi li prima che ti r 
agiungano. Punti: 

7050 POR i ss 4 TO 1 STEP --1 : PRINT 

SiCHR* (150 + i 
NÉXT i 

PRINT " Tas t o •• 1 - , 

- 2' , dss tr a 


PRINT TAB 

." i *5 

7060 PRINT 
sinistra ", 


'070 PRINT 
di sparo e 
PRINT 


7060 
1 j"Premi 


PRINT 
' 0 " 

PRINT TAB 


IL p u L s a n t e 


FLASH 


un tasto per cont i nuare 


7020 IF INKEY*O"" THEN GO TO 70 
90 

7100 IF INKEY*»"" THEN GO TO 710 
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0 

7500 LET s »0 : I..ET meri «5 
75 10 DIM a ( 4- :i : DIM b ( 4 ) 

Ì0 QO SUB 7500 : REM iniZ 


'5 30 GC 
n c i p a le 


TO 20: REM Prog 


a mma pri 
L 


7599 REM iniz/reiniz 

7600 FOR i=1 TO 4: LET aCi>*1 
ET b ( i ) a INT (RND*31) : NEX.T i 
7610 LET i*l: LET p*16 

7609 REM d i s egno &c her m o 

7700 BORDER 9: IMK 4-: PRRER 0: C 

77 10 POR n « 1 TO 3 : PRINT RT 17,n 
*11-7; I M K 6 ; " EBP ' ' 

7720 PRINT RT lS,n*ll-7; IMK 6;" 
MOH": NEXT n 

7730 PRINT IMK 7.1 PAPER 4 ; RT 0.0 
;"PUNTI RECORD 

00000 00000 


RT 1,5-(LEM 
7 -, S 


PRINT 

7 . .. R .. . 

(STRI 
r. ST R $ 


RT 

NE 

S il > 

h !' 


i *1 TO 11 
POKE USR 


LET e $ ( 
sCHR 


774.0 POR n S1 TO men-1: 

0,30~ri*2; PAPER 4; IN K 

XT n 

7750 PRINT 

PRPER 4; INK 
7760 PRIMI" RT 1,16- (LEM 
;i • PRPER 4INK 7 ; h 
7600 RETURN 

9000 RESTORE 9050- POR 
POR ns0 TO 7: RERD a: 

(CMR* ( 14.3 + i ) :• + n , a 
9010 IF i >1 RND i<4 THEN 
i — 1 ii =CHR$ ii 14-3 + i .1 
9020 IP i>7 THEN LET a$(i 
$ ( 14 3 + i i' 

9030 NEXT n: NEXT i 

9050 DATA 24.24.24.60.126.255.21 
9.219: RE M base 

9Ò60 DATA 36,41,150,60,42,140,50 
,65: REM esplosione 1 

9070 DATA 137.74 ,, 32,23.232,36 , 6 1 
,14 4: REM espi O S i O fi e 2 
9060 DATA 4,126,33,64,0,129,8,65 
R 6 M e s p l o s i. o n e s c h e r m o 
9090 DATA 1,3,7,15,31,63.127,255 
REM s 1 

9100 DATA 126,192,224,240,246,25 
2,254,255 : REM 3 2 

9 110 DAT H 255,255,255,955,955,23 
1,129,0: REM s3 

9120 DATA 129.90,60.90.60.102,15 
3.195: REM invader 1 

9 130 DATA 129.66,60,219,165,153 . 
36,195: RE M i ri V ad e r 2 

9140 DATA 129,92,60,255,90,255,1 
29,231: REM in v ade r 3 

9150 D RT R 60,126,219,2 19,255,126 
,66,102: R E M i n v a dei" 4 
9160 RETURN 
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9500 DRTR "U ITT 0 R I R", 
INVASORI HANNO UIMTG","Lfl T 
E ■' MORTA" "5ALUE . IMPERATORE 
POPPO FACILE" 

9990 PAPER 7: BORDER 7: INK 
LS : PRINT RT 10.19; FLASH 1 
R O O O ' ' 

9 9 9 9 ST O P 


" G L. I 
ERRR 




C 

I 


Il programma che segue e' il classico "Space Invader®" con 
tanto di laser surriscaldato, le e di invasori danzanti. Vengono 
usate delle stringhe in quanto gli alieni., disposti su tre file 
vanno colpiti uno alla volta. Le file., memorizzate in arrays, 
vengono duplicate onde permettere il movimento tipico che 
caratterizza i giochi riguardanti gli "Space Invader:?". 


Eleneo delle verlabili 


b 

h 

m 

i 

a 

s , 
si 

p 

in 

k 

c 

l 

d 


men 

wave 


1 


t 


z 

a*< . ) 

b* 


n 

clr 
FI RE, 
HIT, 
SCREEN, 
SCORE 


Altezza degli invaders 

Altezza di partenza degli invaders 

Usato per l' alternarsi degli invader® 

Loop di controllo per stampare gli invaders 
Numero della colonna del primo invader 

Usati per variare la velocita' della base in 
rapporto agli invaders 
Numero di colonna della base 
Usato per leggere la tastiera 

"Marker" per rilevare se il laser e ' 1 surriscaldato 
o no 

Numero degli invaders colpiti 

Livello di temperatura del laser 

Variabile per la direzione degli invaders 

Livello di terra per vedere se gli invaders hanno 

toccato il fondo 

Numero di basi rimaste 

Numero delle alternanze 

Usati per i dati del moti vette 
Runt i 

Distanza della traiettoria degli spari 
Numero di pixel della base 

Usato per controllare la stringa e per vedere se 
ogni invader e' stato colpito 
Usato assieme a "t" 

Arrays per la memorizzazione degli invaders 

Stringa vuota, per controllare la comparazione ad 

a* di una riga di invader 

Tono della nota suonata 

Usato per cancellare la tastiera 


Memorizzano per chiarezza i numeri di partenza, 
delle subroutines 
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Vi sono degli user defined-graphics alle linee 
90,5160 e 5170 

Note 


10 

30-60 

70-120 

130-160 

170 

180-230 

800-830 

900-930 

2000-2030 

2060-2080 

2100-2200 

3000-3060 

4880 

5010-5030 

5130-5288 

5300 

6000-6100 

8000-8010 

9000-9030 

9100-9160 


Iniziaiizzazione e istruzioni 
Muove gli invàderà 
Movimento della base e sparo 
Laser- 

Ri leva se gli invader sono alla fine della linea 

Iniziaiizzazione per una nuova ondata e una nuova 

base se gli invader sono atterrati 

Suona il motivetto 

Usato per la fine della partita 

Prepara lo sparo 

Laser 

Fuoco e esplosioni 

Considera quando 1' invader risulta colpito 
Presenta il punteggio 

Considera le variabili permanenti come i punti 

Considera le altre variabili 

Chiede se lo schermo e' disegnato 

Disegna lo schermo 

Dati per il motivo 

Definisce gli UDG 

Dati per UDG 


10 

20 

2 9 

3 0 
4-0 
50 

THEN 
) ; a$ 
©0 
70 
■75 
7© 
© 0 
OR i 
90 
i n =2 
INK 
100 
HEN 
TO 
1 10 
k ss 1 

SER 
120 
O © 0 
130 


REM iniZ 
AND MOT 


OO TO ©000: 

rem ifeifaa 

LET rii = rn - rei + < 3 AND MOT m ) 

BEEP . 01,n+b 
FOR i=l TO 3 : IF a $ ( i ) < > b* 
PRIMT AT b+i+i,a-(a AND a<0 
Crn+i , 1~ (a AND a < 0 ) TO :• 

MEXT i 
LET s «s •+•■=• i 

R E M suli'issue 3 cambiare 
REM 189 i ri 263,190 in 264 
LET i ri ss 1M ©348©: IF i ri «284 
n=*2S3 THEM PRIMT RT 20 , P .1 " ” 

LET p ssp + ( i ri =253 AMD R<28) - ( 
©4 R MD p>3) : PRIMT RT 20 . P ; 

5 ; " A " 

IF IN ©1438=254 AMD MOT K. T 
GO SUB PIRE: IF c=24 THEM GO 
800 

IF I. > 130 AMD MOT k THEN LET 
0: PRIMT RT 5,7.; FLASH 1; "LA 

SURRISCALO ATO ‘ 1 

IF :£ > 1 THEM LET S=S -1: GO T 


LET L a I. - (2+ (3 


14© 

160 


L ET k 
P A P E R 


s K - ( k < > 0 ) 

2 : INK 7 : 


AMD k !• AND L > 
PLOT 244,15 
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5: DRRUI INVERSE 1; L-130,0: PAPER 

0. 

160 IF NOT K THEN PRI NT RT 5 , 


170 
AND 
O TO 
17 1 
160 
190 
THEN 
) b* 
300 
310 
O 30 
330 
e +1 
33 


IF CODE (SCREENt «b+S,1+(29 
d*l)).i*33 THEN LET a«a+ d : G 

REM li !■ UMJJJ 

F(5r i a I d Ì-O 3 : IF'* a % ( i ) < > b $ 
PRINT AT i +i + b,a - (a AND a <0 
« 1- (a AND a<0) TO ) 

NEXT i 

LET b * b +1 : IF b<g THEN GO T 


L ET rii e ri a rn sn-l: 


LET wave»wav 
BORDER RND*7 


FOR i«1 TO 10: 

PAPER RND#7: CLS 
34-0 BEEP . 01,RND*40: NEXT i 
GO T O 9.00+ (4350 RND m « n 
R 


250 

799 

600 

810 

i 

@30 
e +1 
©30 
©99 
900 
K 6 ; 

910 
R 7 i 
930 
930 
1999 
3000 
3010 



_ TI 

R E ST 
READ V X : BEEP 

LET h ah + (h <9) : 

GO TQ . ELI56 


0 ) 


OR i s 1 
V / 10 , X 


TO 1© 
NEXT 


LET M.i a v e « '.li a v 


REM 

PRINT R 
PAPER 0; 

PRINT Rl~ 

Punti» " 

BORDER 3 

STOP„_ 

REM laBIMM 
LET ?=Ì26: LET 
LET tsp-a + 1: IF 
THEN GO TO 3060 
3030 FOR Z=3 TO 1 ©TEP -1 


_ _ _ 1 ; IN 

GR&R tERMINATA 1 ' 
13,10.; INK 3.; PRPE 
& C * 10 

PAPER T: INK 1 


= P * © + 4 
t < 1 OR 


>34 
GO SUB 


3030 IF asMZ.t) < > " *' THEN 

HIT: GO TO 9060 

3040 NEXT z 
3050 LET Za-b/3+2 

3060 LET Lai +10: IF I. >130 THEN L 
ET L a 13 5 

3070 PAPER 3: INK 7: PLOT 113,15 
5: DRAU L ,0 
3080 PAPER 1 

3100 INK 9 : PLOT r , 16 : DRAU 0 ,q 

3110 FOR Val TO 4: PRINT AT b+Z+ 

Z , P INK ©.; CHR$ (146+V) : BEEP . 0 

05,V *10 : NEXT V 

3130 INK 1: PLOT r., 17: DRAU 0 , q. 

3140 INK 7 

lift r 15 


|000 LET qsTTSi 


3010 LET 

, t. ) B ' 


a $ ( z , t ) 


LET a*cz+3 
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imudomi- fifpaf-via»a« a* o»o>ob • iXTi^iJitnfjicnzciiiscB^tncncntn^i^airji^cRcncnwcncfitn^H^QQQQriiQ 

P©StfiQ©rOQfù ©<DP©.-© ©©©£ T)S©h©!DPQ[ 0 FOFÙJOFOFOrOfOP p PPPPPP©Q©©QZ©i£iQQ©H© 

iqqwup© p- ©sdqqv- 'j a»ffl^toi!tópQQ©ìD©©a»!?cn^co{Op©m -j g»cny fùp© y ojpqpzqio© f -y fo 
©©© S© ©af©SD©©0© ©©©<HS©Z©<£iS©SP©©©©8©©Qg©Jg©©©©©©©©©©© ©l0©©©3© 


a $ r. z :i = b $ :• 

GO SU© SCOPE 


£ C 


LET C * C +1: LET £i = 1 ~C 
" C •$• 3 —4-0 

L ET g=g+iS AMD 
LET SCbSC+4-Z : 

RETU RN 

rem Ba gn a 

PR IN I RT 1 ll-LEN STR * 

4-PRPER 0 ; s c 
RETURN 

GO SUB 9000: R E M I..JDG 
D ir-1 a $(6,24) : O IM b $ < S4. ) 
LET £ C =0 : LET rnen *3 
L ET’ W 3 V e « 1 : L.. ET h = 5 

LET PIRE =£‘000 
LET MIT=3000 
LET 3 C R E E N =6 000 
LET SCORE =4-000 
POR i=l TO S 
IP i <4- THEN LET 


1*S“ 


. meM 

se se 


LET 

se 


a $ ( i ) = 

a $ ( i :• = 


se 


pslNT (RND#26)+3 
d=l: LET k*0 

rii =0 : LET 1=70 

a=3: LET C=0 

£ = © : LET Sisl 

n =--30 

I. r = IN 634.86 : L El¬ 
ga 14- 

■ UB SCREEN 


c ». r = I 



IN K 4- : B 


NEX ‘ 

LET 
LET 
LET 
L ET 
LET 
LET 
LET 
4- 3 © 

LET 
G O :i 
G O 

REM __ 

BORDAR 0: PRt 
T 1: CLS PRPER 
PRINT PRPER £ , , , , , , , 

PRINT RT 1.1;“PUNTI 00000“: 
NT RT 1,13: “ONDR “ ; RT 1,1© 
e : PR INT RT 1,21 ; “ UOM . “ ; m e n 

PRINT RT 2,1;"LPSER TEMP:" 
INK 7 
PRINT 

PRPER 

PRPER 
R ET Ufi 
REM 

D RT R „ -- - . , 

. 7,1 , S . 1,4- , 1 , £ 

D RT R 3, la,6,7 

RESTORE 9100: 

POR ri =0 TO 7 : 

CPiR % ( i + 143) + n 

NEXT i 
R ET U R N 

D RTR 1£ 9,169,109,173,239,© 0 
, 3 0 , a 3 x 


O R R U 




.,6,1,4-, 1 

. , a , 3 

1 , S , 1 4- , 

1 , 5 , 

POR i=1 

T O 7 

READ a : 

POH. E 

a : NEXT 

ri 
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9110 DRTR 

i a s 2 3 1 

91S0 DATA 
3130 DRTR 

129 

914.0 DRTR 
6,139 
9130 DRTR 
©,195 i £55 
9160 DRTR 


23 1 , 163 , 189 , 1 © 1 .. 32 23 © 

0 j 5 , 8,8 .£8 , 28^62 . 12 

1^9 © 6,30 33,33 .. 60,33 
129 , 123 , 33 , 33,33 , 33 12 

25 © .. 195 , 133 , 153 , 133 , 1 © 
0 , 0 , 0 0 , 0 , 0 , 0 , 0 


Il prossimo game sfrutta un effetto ottico con ottimi 
risultati. Ha solamente tre parti in movimento • il limite di 
tempo< la bocca e la coda del serpente. Le istruzioni sono 
incluse nel programma stesso. 


Elenco delle variabili 


h 

i 


a* 

d* 


Contatore degli elementi dell' array comprendente 
le coordinate della testa 

Contatore degli elementi dell' array comprendente 
le coordinate del resto del corpo <stabi lisce 
anche il colore del serpente) 

Ingresso da tastiera 
Memorizza la direzione attuale 


y Coordinate della testa 

d Coordinate della, mela che deve essere mangiata 

w Usata, per l' attesa dopo aver mangiato la mela 

ii Altezza aggiornata del limite di tempo 

b Decremento del limite di tempo in funzione del 

grado di difficolta' scelto 

t Contatore degli elementi compresi nell' array 

delle coordinate aggiornate della testa 



Array per la coordinata x 

del corpo 


y<. n > 

Array per la coordinata y 

del corpo 


ro 

Usata per il movimento della bocca e per 

i co 1. or i 


del serpente 



1. 

Lunghezza aggiornata del • 

serpente 


s 

Punteggio 



h< . > 

Array.contenente i primi 
livello di abilita' 

cinque record 

ad ogni 

h>< . > 

Array contenente i nomi 

dei recordmen 

ad ogni 


l i ve 1.1. o d i abili ta ' 

v.. 

len, 

note Usate per il moti vette 


n Usate per definire i nomi iniziali nella tabella 

dei record 

b*, 

b Usate per inserire un nuovo nome 

n.. 
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i, 
1 


Variabili di controllo per i. loops ecc 


I caratteri grafici da definire battendo le maiuscole in 
"graphic mode"., trovano posto nell® linee : 

300, "ET,310, "IJ", "D", "L", "R" , 330, "Q",510, "A", 1300, "C",5000, "0". 


Note 


10 

20-50 

60-70 

90 

100-110 

120 

300-310 

500-550 

1000-1010 

1020-1050 

1060-1080 


Iniziaiizzazione e istruzioni 
Tastiera « 

Testa per vedere se qualcosa e‘ stato colpito 
Tratta il limite di tempo 
Tratta la coda 

Inserisce i valori nell-’ array 

Subroutine per il disegno della testa 

Disegna una nuova mela, il punteggio e suona il 

motivette 

Predispone i record 
Istruzioni 

Istruzioni circa i limiti di tempo 


Nel caso possediate uno Spectrum a 16K, dovete apportare le 
modifiche che seguono 

L.inee 20,30,110,520,5020,1170,1180. Cambiare ogni numero 50© in 
180 e ogni 499 in 179. Se non fate cio / il programma impegna 
troppa memoria e si blocca con l' errore 4 "Out of memory". 


1090-1150 Selezione dei liveIli di abi1ita' 

1160 Colori, che potete anche variare 

1170-1190 Iniziaiizzazione 

1200-1220 Disegna lo schermo 

4000-4020 Definisce gli UDG 
4030-4100 Dati per gli UDG 


5000-5050 

Non disegna 

la coda alla fine della 

9 ara. 


5100-5110 
5120 

Pont i 
Presenta 

il 

record precedente se 

non e * 

stato 

5130-5240 

battuto 

Presenta 

il 

nuovo record nel caso sia 

stato 

5250-5320 

ottenuto 

Presenta 

la 

tavola, dei record e il 

"bit 

per l a 

9008 

fine" 
Dati per 

il 

motivette 




Serpenti 


h 

...i 

D 


10 

•30 

SU 

B 

4.000 : 

•3 0 

20 

LET 

h 

= h 

-1 : IF 

h 

*500 






30 

LET 

.j 

».j 

-1 : IF 

.j 

= ©00 






4-0 

LET 

a 


INKEYÉ 

J 

a * < 

1 ’ 0 " 

T 

HEN LET 

d $ 



«0 

IF 
«a se 


1000 

THEM L ET 
THEN LET 
a*>"4" RN 
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50 LET XSX + «d$a“6":i - (d$ 
LET usu + (d$s"S") - !d*s"5") 

60 IF XaC^flND y = d THEW OO 

( x y ) < > 1 ' 


" 7 " ) : 
SUB 
TMEW 


7© IF SCREEN* 

GO TO 5000 

©0 GO SUB 30© 

90 IF W < -4. TMEW LET UsU-b: PLO 
T INK 5; IWUERSE 1; 24.8, U : D R fi U I 
NK Sj IWUERSE 1 ; 7,0 : IF u*0 TMEW 

GO TO 6000 

100 IF W <1 TMEW PRIWT fiT X Ct) ,y 

( 1 ) : '* : LET tst-1 

110 LET M.'=W-1: IF 1*0 TMEW LET 

t =500 

120 LET X <1-, > =X : LET y (h) =y : GO 

TO 30 

300 IF m = 1 THEN PRIWT fiT X , y " B 


310 IF rt! 
U“ fiWD d $ : 


( " L " 

:t 

320 
m = 3 ) 
33© 
O " 

3 4.0 
4-97 
4-9© 

499 

500 
as IWT 
) < > 


«3 THEM PRIWT fiT X , 
1 7 " :« ; ( "P" fi N D d $ ' 


( 


fi W D d$ = "5") J ("R" fi N D d 9» = " S " 

LET m = rn + <2 fiWD rn=i:i-(2 fiWD 

PRIWT fiT X ( ..i i , y ( j i ; I w K rn ' • 
RETURW 
REM 


m è L a 


LET C = IWT (RND#19) + 2 : LET d 
(RND#28)+1: IF SCREEW* (c.d 

*' OR C «X ( 1 ) fiWD d =y ( t J TMEW 
GO TO 500 

510 PRIWT fiT c,d: IWK 4.; "fi” 

520 LET l. = i. +5: IF L <500 TMEW LE 
T W *5 

530 LET S *S +1: PRIWT fiT 0,9-LEW 
(STR$ s) : : IF s >h < Lv , 1) TMEW 

PRlWT^fiT (i 0,16-LEW (STRI S) ;s;" d 

1 540 RESTORE 9000: FOR V=1 TO 5: 

READ I. eri: READ noie: BEEP L e n .. n 
Ole: WEXT V 

550 GO TO 90 

1000 DIM h*( 5,5,6) : DIM h(5»S) 
1010 FOR V=1 TO 5:' FOR n=1 tO 5: 

LET h $ ( V .. n :i * M Eroe WEXT ri: N 

EXT V 
10 17 

101 © REM HEKjM13E5BEI3Hi 

1019 

1020 BORDER 4: PfiPER 0: IWK 7: C 

1030 PRIWT TfiB 12; FLASH 1;"SERA 
E WT I " FLASH 0 , , , "Do v eie g u i d a r e 
ìl serpente verso Le rn e l a v e rde 
. IL serpente di v ente se rn p r e pi u 
Lungo j " 

1040 PRtWT "e a p p e na divor a t a La 
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m e i. a , n e app a r e subi t o u n ' a 1.1 r a . 
D ove te stare attenti che il serp 
ente non divori se stesso ,oppu re 
il bordo," 

1050 PRINT -•■•per muovere i i ser¬ 
pente usate i tasti cursore s - ©" 
FLR5H 1 ; " Un t. a s t o per 
cori t i n 1...1 are" 

1060 LET a $ « 1NKEY % 

N OO TO 1060 
1070 CL5 PRINT 
di dirvi che"j"c 
i tempo , e che" 
i difficolta - ' e 
ave te per mangià 
PRINT "me la 


IF a $ *"" THE 


1060 
osizi 
t. a a L 
.Lo s 
a m e ri 
P e r 
a g a r 
10©7 
10@S 
1069 
1090 
a b i 
1100 
a ri t o 
:i -Eroe" 
S) -P r i ri 


o n e 
i a 
c o r 
t r' e 
r ende r 
a . " 

REM 


"flh 
e 

P i u 
a i t 
r e 
I l 

t 


m o s 
nistra" 
re de i 
t a t e m a n g 
e piu' i 


j d i m e n t 
u n i i rn 
' i l 
o , m e ri 
le 

tempo 
r a to da 
, "de i lo 
t e rn p o si 
i a n d o 


c a v o 
te d 
g r a d o d 
o t e rn p o 


a d i s p 
Ila c a r 
scher m o 
arresi 
L a rn e i a 


n t e r e s s a n t e 


i 


PRINT ti ,, "Sceg i i i 

PRINT . " i:i ~-R irne ri 
l •' a u t o r e a :• - s u p e r 
, , " 4- :i -Rbbas tanz 
ipiante" 


m 



i 

g r a d o 

d i 

O 

b r a v o 

qu 


Eroe” i 

• * fri 

a 

b r avo* 



1110 PRINT ,,"Premi i 
1120 LET a $ =s INKEYt : IF a*»"" OR 
3$<"1" OR a$::-"E" THEN GO TO 113© 
1130 LET iv «URL (a*) : PRINT " H 
a i s c e i to i i l iv elio lv; " — " ; 

("CORAGGIOSO" AND L V < 3 > ("PRUID 0 


" AND 

t 1 * 

L V =3 > 

( "UILE" 

R N D ' l V > 3 

) ; " 


Ì 14-0 

F OR i « 

1 TO 

300 : 

NEX'T i 



1160 

1167 

LET U « 

168 : 

LET 

b = 1 l V 



1156 

K E M HiMHHI 





1159 

4 






116 0 

L S 

0ORDER 

3 : 

P R P E R 

7 : INK 

1 : 

c 

1170 
1177 

DIM X •: 

500 :• 

DIM 

y(500) 



117 © 

REM (SEI 

riiii—'a 





1179 

1 160 

LET d ss 

-30 : 

LET 

W=0 : LET 

rn = 

1 

LET 

X =s 1 © : 

LET 

y =15 

LET h = 

4-99 


LET 

...i =500 : 

LET 

l ss i : 

LET s =s — 

1 : 

L 

ET d $ 
l —5 

1190 

■ STRI 

( I NT 

(RND 

* 4. ) + e; :i : 

LET 


L ET X ( 

t. S ss 3 

LET 

u ( t ) =3 



1197 

d .1 i—« .ss- 

r-. es* mwm 

■■■■ 


1 . wr /I L JTT* 




1199 

1300 


LET 


ccccccco 


a $ ^ 
: C C 


C C C C C C C i 

P R I NT 


I: C C C C C C C C C C C 
■Punti=000 H 


60 


i »0©0 di ";h$( L V , 1 ) re rn p o " ; RT 

0 16-LEN < stri h e i. v , i :i :i ; h (iv , i ) 
1210 print a I N K ©;"■": PO 

R i =2 TO 20: RRINT_RT i ,È); M C";TR 

e 29 ' ' - - —.“ ' 


de fin 


. C ; IW K 

XNT a ii "0" INK 
1220 GO TO 500 

3998 

3999 REM 
4.000 

4.010 POR ri « 1 
4.020 POR i. «0 
IJSR Zi + I. 

4.029 REM 
4030 DRTR 
,265i12©,80 
4040 DRTR "U 
285 ,12© ,©0 
4050 DRTR "d 
, 195,60J.86 
4080 DRTR " 

54.60 

40T0 DRTR *' 

24© , 127 , ©0 
4080 DRTR 
5 s 12© . 3 © 

4090 DRTR 
6,153.165 
4100 DRTR 

153.66.60 
4110 RÈTURN 

4997 

4998 REM 

4999 

5000 


fa 




NÈX'T i 


PR 


TO © : 
TO 7 : 
■ÌE XT l. 


RERD z« 
RERD Z: 
M E XT ri 


POKE 


i. 

r 


, ©0,126,255,255,255 
,©©,©©,195,231,231, 

, 60 ,126 ,255,231,231 
,60,254,31,7,7,31,2 
, ©0,127,24©, 224,224 

2 


"a ", 24 , 

1© , 

©2,255 , ; 

255 , 

"C",129 

, 90 

,36,153 

, 6© , 

"q. " , ©0 , 

©6 , 

153,165 

, 165 


PRINT INK rn ; RT x < J ) , y < j ) "O 


y ( t ) ; 
y , m 


" : L. ET 
B E E P . 


•mJ .1 


5010 PRINT RT X ( t :■ 
t » t —1: PRINT RT X 
05,12 

5020 IP t=0 THEN LET t»500 
5030 IP tah THEN GO TO 5050 
5040 PRINT RT X , y ; "J"” : BEEP 
0: GO TO 5010 
5050 PR I NT RT 10,10; "Ga fa f i ruta 
POR Val TO 300: NEXT V 
5100 BORDER 4: PRPER 0: INK 7: C 

5110 print "Mai mangiato " ; s ; " 

me Le";" a grado " ; i v 

5120 IP S <sh (lv,5) THEN PRINT .. 
" L. a tavola dei record per questo 
grado e■",,: GO to 5250 
5130 POR v»10 TO 30: BEEP .01.V: 
NEXT v: POR v=29 TO 11 STEP -1: 
BEEP < 01 , V : NEXT V 
5140 PRINT , , "Hai Stabilito il l'¬ 
eco r d " " Batti il tuono 

me " , T R B 5; " (massi rn o 6 l e t t 

ere)", TRB 11; " < --> " 

5150 L ET b*»"": LET b*12 
5 160 IP INKEY$< >"" THEN GO TO SI 
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IF a*»"" THE 
:ODE a **13 


60 

5170 LET aisIWKEY*: 

N GO TO 5170 
5160 BEEP ■05 i 10 : IF 
THEN GG TO SS10 
5190 IF CODE a * = 12 THEN LET b*b- 
(b>ia:i : LET b$sbl < 1 TO b-12) : PR 
XNT RT S , b j "-" : GO TO 5160 
5200 IF b <16 THEN LET b*=b*+a*: 
PRINT RT 5 , ba * : LET b*b + l: GO T 
O 5160 

5210 FQR V*1 TQ 5: IF »>h(lV,V) 

THEN GO TO 5230 
5220 NEXT V 

5230 FOR n*5 TO V+l STEP -1: LET 

h C l. V , n :■ *h C I. V jd-l) : LET hi (U ,n) 
*ht ( I. V . n - 1 ) : NEXT n 

S3i0 L.ÉT hUV,V)=S: LET hi(lv,v) 

5250 PRINT O'JER 1 ; RT 6,0; "PoS,''; 

RT 6,0.; "_ Nome"; RT 6, 

13 "_ Pu n t i " ; RT 6,25; " 

____" : FOR V » 1 TO 5: PRINT RT 6 

+ w ,0Tv;TRB 12; hi UV ,V > ; TRE 29-LE 


N (STRI 
5260 PR 
a ? (y/n) 

5270 0O TO 


h ( L V 
INT , 


v :i j ; h t t v , v ) : N E XT v 

"Cuoi giocare ancor 


THEN GO TO 10 


IN K EY i * " n 
0 : INK 7 : 

TO 5300 


THEN 

CLS 


BOROER 4- 
GO TO 10 


5270 + (2730 RNO INKEY* 
* " n ' ' ) +(INK EY* = " y " ) 

5260 IF INKEVio"" THEN GO TO 52 
80 

5290 PRINT ,,"Uuoi Le istruzioni 

•? (y/n) " 

5300 IF INKEYÌ*"y 
20 

53 10 IF 
PRPER 

90 

5320 GO 

gÓQ*) 

5998 REM 

gggg 

6000 FOR V *60 TO -20 
EP .05, V : NEXT V 
6010 PRINT RT 10,6j" 
t O " : FOR V =1 TO 

6020 GO TO 5060 
8000 CLS : PRINT RT 
1; BRIGHT 1; PRPER 
IRÒ "; STOP 

8997 

8998 REM 

8999 > 

9000 D RT R 0.05,12,0 
7,0.05,9,0.05,7 


STEP 


1 : BE 


Tempo scadu 

300 : NEXT V 


10 

i; 


13; 

INK 


FLRSH 
7; " C 


025,7,0.025, 


L' ultimo programma di questo capitolo riguarda uria specie di 
"squash", trattandosi di ribattere una palla. Gli oggetti in 
novimento sono solo due ed i movimenti assai veloci. Vi sono 
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due "variabili di direzione", una per le coordinate "x" 
<variabile dx) e una per le coordinate "y" (variabile dy>, le 
quali contengono un numero che può' essere sia positivo che 
negativo dalla cui grandezza dipende la velocita' con la quale 
la palla viaggia nelle varie direzioni. 

Se per voi il ritmo della gara e' troppo elevato, variate il 
contenuto delle linee che calcolano "dx" e "dy". La palla va 
colpita con la racchetta ogni qualvolta venga respinta dal 
muro. Il movimento della racchetta si ottiene con i tasti 5 e 3 
in accordo con le relative frecce direzionali. 

P1. eneo de Ile variabili 


y 

a 

b 

dx 

dy 

h 

P 

true 

ball 

Note 

10 

20-30 

40-60 

70-90 

100 

110 

120-130 
140 

200-220 

2000-2200 

3000-3200 

4000-4200 

5000-5100 

5300-5700 

6000-6400 

3000-8030 


Coordinate x della palla 
Coordinate y della palla 
Valore temporaneo di "x" 

Valore temporaneo di "y" 

Inerementoxdeeremento di 
I ncremerito/decremento d i 
Altezza aggiornata della 
Battuta del giocatore 
Punt i 

"Marker" normalmente a 1, assume 
quando la palla viene mancata 
Numero aggiornato delle palle rimaste 


per cancellare 
per cancellare 
"x" 

II y" 

pa 11 a 


il valore 0 


Iniziai izza 

Disegna la palla, memorizza i vecchi valori e 
calcola i nuovi 

Test per vedere dov' e' la palla 

Muove la racchetta 

Cancella la palla 

Ritorno del loop 

Palla mancata 

Test per vedere se la. partita e' finita 

Preparazione della palla successiva 

Nuovi valori delle variabili, colcolati quando la 

palla tocca il fondo. Notate la linea 2020 

Nuovi valori calcolati per i bordi 

Nuovi valori delle variabili inerenti al muro 

Partenza della sola inizializzazione 

Inizializzazione di ogni pal1a 

Disegna lo schermo, i punti e le palle rimaste 
"Bit" di fine gara 


10 GO S UB 5000: REM in iz 

19 rem HE8HBhBMÉBBÌMPHP« 

30 PLOT X;y: LET “BX 
30 LET X*X+dX : LET y=sy+dy 
*0 ÌE U<6 TH?N GO SUB 200© 
50 IF X <6 OR X >24-8 THEN GO 
3000 


LET b *sy 


SUB 
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tnMtfltncnzffltnfflrfflOJcn^^^^f-^wti^^QQQQKtQXijisoKiFOZKiJtirojofOKtp c x?z 

<D-\iOi Q u> n QQfOO>P©8 tfl uJfùP Q © ©© ©©iDMP© ©*8lOJOP 88Q© Q*fOK>nHpniPPPPP -O 
®Q®«i0*P®<0 ©PQilHùSQijiMiìfO P©!fi©Sfi) PR)©iÌ)SQift-si<tf!OP ©<Dfi)P © O P D© (0 P P Q ® Q ®-vl® 
(0©©©©Q8©'i) 0SQtfì®Q0SQQ® 8©«Ei©©S ©-©©©©d©©©© ©tì)S©S © SSpQ©8~T?Q©© 


XF y > h THEN GO SUB 4000 
PLOT p , © : DRRU 30 ., 0 
LET P=P+(S AND INKEY$="8" R 
<836)-(8 RND INKEY*="5" RND 



PLOT p ,© : 

PLOT a,b 
XF t CJ^-S—T-H 
REM 

LET b Si L L *ba i. 
PRINT 
0 ; s 

BEEP 1 
£<000 
PLOT p , © : DRRU 
GO SUB 5300 
QO Tp S 
RE 

LET d X=RND*SGP 


30,0 
O 30 


LET S 
STR * 


RT 0,10-LEM STR* s 
, 0 : XF ba t. L =0 THEN 
30 .. 0 


O 

GO 


d X * 

RND x <P +S1) 
RT 0,10 -LE 


LET d y sRND *4 +3 
LET t. rue » ( X >ap 
LET y s? 

LET £=>£+1 : PRINT 
R* SI OUER 0 S 
BEEP .01,30 
RETURN 
REM 

L. ET d x =~ ( RND *5GN d x * 4- +3T3H 
LET dy=RND*SGN dy*4+SGN 

RND X > 3 4- S ) 


LET : 

BEEP 
RETUJ 
REM 

LET dy ssRND * — 4- 
L. ET d X ss R N D * 5 G N 


= 6+ <34-3 
. 01,0 

-•) 


d X «4+SON d X * 


PLi 

LE' 


-OT 6 , h : DRRU 34-3,0 
•T h»h-<2 RND h >30) 

PLOT © , h : DRRU 34.3,0 
LET Mah-1 
BEEP".01,40 
RETI IRN 

r e m ~ 

REm So lo pan.en2a 
LET ba I. I. ss3 : LET 3 *0 
LET h ss 1 ©6 

BORDER 4 : PRPER 1 : INK : 


C 


REM R n e. he reiniz 
LET X ss 137: LET y » h - 1 
LET dX ssRND *10-S : LET d y = - t R 
+ 3 '.i 

L ET p s= 115 
L ET t r U e « 1 

GO SUB ©000: REM schermo 
RETURN 


REM 


c h e r rn o 
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©000 OUER 0 
6010 PRXNT RT 
PflL.LE= 000 
6026 PP: ICNT RT 
PRXNT RT 0,3 
©100 PLOT S,0 
245,0 : DRRLJ 0 
©150 PLOT 
6200 OUER 
64-00 RETO 
7 -3 99 REM 
© 0 0 0 P RXN 
R R P IN XT R 
6010 BEEP 
8020 OUER 
©030 STOP 


0,1 


PUNTX «000 


0,10 - LEM ©TR 5(5 S : S 
1 - b a !.. I. ; F L... R S H 1 ; * ' 0 ' 
0RRU 0,167 : DRflU 

— 1 © 7 

DR RU 20,0 



G R 


•12: BEEP 

BORDER 7 


ÌNK 
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Capitolo 6 


SCROLLINO 

"ScroiUn®" e' il nome dato all' effetto per cui tutti 9li 
oggetti disegnati sullo schermo <siano questi parole, spazi, 
simboli o altro) si muovono assieme nella medesima direzione. 
E' chiaramente visibile dando il comando LIST in presenza di 
programmi di una certa lunghezza. 

Il computer lista una "videata", quindi si arresta presentando 
la richiesta 'scroil?' a cui l' operatore può' rispondere a 
seconda delle proprie necessita' premendo un tasto qualsiasi 
per lo scroi ling dello schermo verso l' alto, oppure digitando 
“n", "STOP" o "BREAK" < CAPS SHIFT+SPACE) per arrestare il 
programma. Questa particolare proprietà' viene sfruttata di 
buon grado in diversi games quando, ad esempio, si voglia 
ottenere una astronave in viaggio attraverso ad uno stormo di 
meteore. Facendo scorrere il paesaggio e mantenendo ferma, o 
quasi, la navetta, si ha infatti l' impressione che questa si 
muova in una certa direzione. In condizioni normali, pero', lo 
Spectrum presenta la scritta 'scroil?' dopo lo scorrimento di 
ogni 22 righe, il che, nel bel mezzo di un game, non e' molto 
ben accetto. A tale inconveniente si rimedia semplicernente 
effettuando una POKE, come avviene nella linea 20 del prossimo 
programma, e facendola seguire da uno statement di PRINT (linea 
50 > che porta la posizione di scrittura al limite inferiore 
dello schermo. 

Siete al comando di una astronave che dovete pilotare con i 
tasti 5 e 8 i quali hanno il potere di cambiare la direzione di 
marcia per evitare collisioni con le meteore. Attenti perche' 
l' astronave che lascia dietro a se una coda luminosa, effetto 
dello scroiling, può' rimbalzare sui fianchi dello schermo. 

La lettera "A", presente alla linea 58, '/a battuta in "graphic 
mode“. 


10 
52 0 

p *31.; 
D * 3 • 4 
30 

T d = - 
4.0 
d 

S0 

n k a ; 
AND n 
G O 

60 

RPl FI 
NT RT 
4 + R N D 
?0 

1: PR 


GO 5UB 5000 
PO KE £3693,-1: PPINT 
INK Sl+RND *6.4.; CHR$ 

) : LET a $ = INKEY $ 

if a $~"s■ • or a*a"a 
1 + e a and a*s"8") 

XF p=0 OR p =31 ThEN LET d = 


T AB R N 
( 14 6 + R N 

THEN LE 


LET p »p + d : PRINT RT 10 , p ; X 
" R ' ’ RT £1,0: LET n*n + l-(50 
= 40) : BEEP' . 0 1 , n : LET S=S+1 
TO 20+ (40 ANO ATTR ( :L0 , p ) <> 

PRINT RT 1£ , 1£ ; FLASH 1j ”GR 
N1TR": FOR i=-£0 TO 60: PRX 
10 , P INK RND + 5 + 2 ; CHR « (14 

*4): BEEP .01,i: NfcXT i 

FOR i=1 TO ££: POKE 23692,- 
INT RT £1,0: PRINT NEXT i 
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PRINT 
ST O P 
©000 GO SUB 
©010 LEI S«0 
L ET n a 0 
©020 BORDER 
LS RETURN 
9000 RESTGRE 
9010 FDP ri«0 
9020 POKE US 
90 30 NEX'T n : 
9100 DATA 99 
9110 DATA 10 
66,62 

9120 DATA ‘7 

él30 DATA 32 
. 60 

914-0 DATA 11 
1 "7© , •?© 


RT 11., 10; "Tuoi punti 


9000: REM 
LET P»1 


UDO 

S: LET da© 


0: PRPER 0: INK 7 : C 


9100: FO 
TO 7 : RE 
R CHR$ Ci 
NEXT i : 

, 6© , 73 ,34- 


12 1 , 129 1 

,30,7©,©6 
0 14.6,132 


R i al TO S 
R D -Si 

+ 14.3) + n , a 
RETURN 
,34,20,20 i 3 
©6,132,132 

30,©6,33,34 

, 129,130 , 6© 

,66,©S, 129 , 


Ricorrendo *1 codice macchina Cm/c), e' possibile ottenere 
anche lo scroi lina a destra e a sinistra. Inserite la routine 
che segue e vedrete che tutti 9li orsetti che escono dallo 
schermo in un determinato punto, riappaiono tali e quali nel 
punto diametralmente opposto dando adito ad un singolare 
effetto. Tenete presente che la subroutine gira sullo Spectrum 
da 48K, se avete la versione a 16K, cambiate i numeri che 
seguono : 


Linea 10 
Linea 8000 


Linea 8019 
Linea 8049 


da 64999 a 31999 
da 65000 a 32000 
da 65045 a 32045 
da 65000 a 32000 
da 65023 a 32023 


Naturalmente i numeri piu.-' bassi sono dovuti alla minor memoria 
del 16 rispetto al 48K. 


10 

P3ZÌO 

2© 

7 9 9 9 
3000 
O 6©0 
i : RE 
3009 
30 19 
30 29 
3039 
©049 
3069 
3069 
ei00_ 
3 23 ? 

2 3 “7 . 


CLERR 64999: 
p e 

GO S UB 60 00 

REM _ 

RESTO 
4©: RERD a: POKE 
T 1 . J R N 


REM sai. va 
rii / c 



1 . o 


i ®6©000 T 
i a : NEXT 


REM RRNDOMIZE USR 65000- 
R E M S C R 01~. U 3 X N I ST R Q 

REM RRNDOMIZE USR 65023- 
REM SCROL..L DESTRO 

DRTR 1 255 2 17,0,88,33.1,3 

,176,1,0,24,17,0,©4,33,1,64 
176,201 
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©11® DRTR 1,365,2,17 .. 255,90 .. 33 2 

54,9® .. 337,184,1,0,24 17 .. 255 ©7 3 

3,254 .. ©7,337,1©4. 201 


Uno dei pochi svantaggi dello scroi li ng, e-' che trans la tutto 
guanto riportato sullo schermo ivi compreso il punteggio, che, 
come si sa, permane costantemente nella parte alta. 

Pertanto, usando un tale effetto, e' necessario memorizzare il 
risultato senza presentarlo se non alla fine del gioco. 

Ed ora eccovi alcuni interessanti programmi basati sullo 
scroiling. Iniziamo da "Grand Prix". Siete alla guida di un 
bolide blu attraverso un tracciato di cui dovete evitare i 
bordi e nello stesso tempo le auto piu' lente che vi si 
presentano davanti. Lo spostamento coi soliti tasti 5 e 8. 


Eleneo delle variabili 


P 

s 

x( • ') 

car 
i nk 
rnd 
l lfe 
l 

1, 
n 
a , 

END, 

LOOP 


Coordinate della colonna dell' auto del giocatore 
Punti 

Usato nella cancellazione del fumo 
Posizione prossima dell' auto da corsa 
Colore dell' auto da corsa 
Numero random per lo snodarsi della pista 
Fiuto a disposizione (inizialmente 5) 

Coordinata della colonna della pista 

Variabili di controllo dei loop 


Memorizzano i numeri delle subroutines 


Gli UDG presenti in questo programma, corrispondono alle 
lettere maiuscole di cui alle linee : 

30,60,110,130,2006 e 5120. 



9 2 , - 

I N K © RT 9 


1® GO Si 

19 REM 

20 POKE 
SCROLL 

30 PRINT 
1 NT RT 19,p 

4-0 LET psp+( INKEY % ss 

gl ss ’ 1 S " ) 

60 IF RTTR (Il.Pi <> 
(11,P+1) <5113 THEN G 
©0 PRINT XNK l;RT 1 
il, p "CD" 

70 LET s=s+l 
©0 PRINT RT 7 , X ( 1) ; 
90 LET x (1 ) ax (2) : L 
.i : LET X l 3 ) =p 
100 LET cafsINT (RND 
T i n k s= INT i RND *4. +2) 


■ P 

" © 1 

1 1 
O 
0 , 

i i 

ET 

*9 


TO 
p ; 


X 
4* L 


F G ' ' 
~ (. X 

o 

• • RB” 

( a > 

+ £ j 


1 

PR 
N K EY 
RTT R 
.1 RT 

ss x ( 3 
LE 
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110 IF S/3aINT C£/3:' THE N PRINT 
AT 2© , e a r IMK ìnK; "RE" : PRINT 
RT a l c a r INK i n h ; "CD" 

120 LET rnd=INT (ftND#3-l): LET 
L o l + r nd - ( L »19) + ( L «a 1 ) 

130 PRINT INK 0RT 21,1; "E": PR 
INT INK 0 : R T ai , L+ 12 ; "É" 

200 go tg Écafiga _ 

1999 REM _ _ 

' : K 


ara* * 


1. 


U,p; InK. ■’ 1"CD " 

«20 TO -20 STEP -1 


hB " 


BE 
P U 


2000 PRIN 
PRINT RT 
2010 POR i 
EP ,01,i: NEXT ì 
2020 LÉT Life»LifS-1 
2040 OLS PRINT RT 0,6; "Tuoi 
nti s; ", con ancora 1 

2050 PRINT RT 10,10; Life.;" autom 

O bi Li " 

2060 POR i~l TO 200: NEXT i 
2070 IP Lif«>0 THEN GO SUB 5050: 
GO TO 20 

2000 print •' trb 9; "filtra gara y/ 
n ■? " 

2090 GO TO 2090+ (7900 AND INKEY* 
»" O") + ( INKEYis" 

2 100 GO SJJR Po* 

4999 REM 

5000 


G( 

LI 


SU 



M u l> ij» 

LET LOOP «20 
S «0 : LET Li f tt »*5 
P « 15 : DIM X (3) : LET X ( 1 


ÌT END*2000: 


• 010 

5020 LET 
5050 LET 
.i olS 

5060 LET l ss9 
5100 BORDER 0: PAPER © 

INK 1 : OLS 
5 110 POR i ss© TO 20 
5120 PRINT INK 0,i RT i, 

NT INK 0;RT i,2l;"E" 

513© NEXT i 

~ TO 12: PRINT 

W" : NEXT i 


BRIGHI 1 
"E": PRI 
RT i , 1 


7999 
©000 
©010 
©020 
©030 
©040 
©099 
© 100 
© 11© 
23© 


U D Lj £ ■£ -f; 


R E M 

RE STO RE oxvimo: 

POR ri »s 0 TO 7 : 

POKE U5R CHR* 

NEXT ri : NEXT 
RETURN 
REM AUTO 

DATfi 31,31,4,5,55,59,55 


r u k a * 
READ Z 
( 14 3 + a ) + n 


O 7 
, z 

, © 


DATA 24©, 24©,©2,16© , 236,220 

QR 

“-“ ~ - “ 1,19,1,7 


C5 

i 


0 

D 

AIA 

© , © 

A 

-7 

A 

19 

8 

i 

3 

0 

DAT 

A 

9è, 

9 

© 

A 

22 < 

1 

2 

© 

,22 

4 








1 

3 

y 

R 

EM 


BORD 

I 




& 

14 

0 

D 

AT 

A 

255 

A 

1 

ci 

9 , 

3 

A 

1 

29 , 

2 5 

fsr, 






S 

1 

4 

9 

R 

EM 


FUM I 






1 

50 

D 

AT 

A 

© , 3 

, 

1 

Fi 

, 6 

» 

1 

© 

0 

D 

AT 

A 

1 © , 

s 

0 

,i 

.+*, è** 
cz. > 


15 , 62 , 61 , 31 , 31,6 
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g b* ^ g jgj*. 

999Ó 0ORDER 6: PRPER 3: XNK 7: B 
RIGHT 0 : CL5 

©999 PRINT RT 10,13.1 FLRSH lj" C 
XflO ": STOP 



X 


X 


X 


X 

•Scv 



X .*6 


X 


X 


Note 


10 

20 

30-90 


100-200 

2000-2020 

2040-2060 

2080-2100 

5010-5060 

5100-5140 

8000-8040 

8099-8160 

9990-9999 


Iniziaiizzazione 
Scroll dello schermo 

Tratta il movimento dell' 1 auto, delle nuvolette di 

fumo e rileva se la vettura ha picchiato 

Sistema l' auto successiva e la. pista 

!_•' auto ha urtato qualcosa 

Fine di una ©ara 

Nuova partita 

Iniziaiizzazione variabili 

Predisposizione dello schermo 

Definizione UDG 

Dati per gli UDG 

Fine 


Il prossimo game si avvale del codice macchina per effettuare 
lo scroll orizzontale. E' la versione semplificata del noto 
"Scramble". Dovete attraversare una lunga caverna le cui pareti 
si fanno sempre piu' strette senza incocciare nelle mine 
sospese qua' e la'. La navetta si pilota per mezzo dei tasti 
W,H,D e 2 disposti nelle quattro direzioni cardinali; 
azionandone due assieme si ottiene lo spostamento diagonale. 
Tale effetto deriva dall' uso della funzione IN come sopra 
descritto. Il tasto fi (sinistra) produce l' illusione del 
rallentamento della marcia, mentre il D, quello dell' 
accelerazione. 
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"s*","r*" e "q*" contengono rispettivamente una stringa vuota, 
la navetta e le mine. Nelle relative stringhe sono racchiusi i 
caratteri di controllo degli attributi in modo che le varie 
parti assumano l' appropriato colore per mezzo di semplici 
PRINT. 

PRINTandò "q*" si ottiene ad esempio una mina rossa 
lampeggiante. 

"a*" usa il carattere di controllo di RT per presentare il 
disegno nella parte bassa dello schermo onde prevenire l' 
effetto di "wrap around" <gia' visto come la scomparsa di un 
oggetto da un lato e la sua riapparizione dal lato opposto> 
causato dalla subroutine in codice macchina. 

POKE 23624,n viene spesso e volentieri impiegato per variare le 
due linee piu' basse dello schermo.; qui' copre un effetto 
causato dal codice macchina visibile modificando la linea 5333. 


E lene 


delle variabili 


y 

s* 

l 

a* 

r* 

g 

w 

d 

ri 

r2 


q* 

men 

b* 

i, 


Coordinata verticale della navetta 
Coordinata orizzontale della navetta 
Stringa per cancellare la vecchia navetta 
Variabili fittizie'per eseguire la subroutine in 
codice macchina 

Stringa per eliminare il "wrap-around" 

Stringa per disegnare la navetta 
Punti 

Coordinata verticale del suolo della caverna 
Altezza della caverna 

Usato per dare forma ai muri della caverna 
Coordinata verticale random delle mine 
ri convertito in numero di pixel per far capire al 
programma il rapporto tra ri stesso e la larghezza 
della caverna 

Stringa per disegnare le mine 
Numero delle navette rimaste 

Stringa fittizia usata in INPUT per dare il via ad 
una nuova ondata 

Variabili di controllo per i loop FQR...NEXT. 


Gli UDG usati nel programma sono tre. Eccoli ; "AB" alla linea 
33, "AB" alla linea 5120 e "C" alla linea 5130. 


0 CLERR 31999: GO SUB 6000 
s R e M s u t i & s u e £5 . v a r i a r e 
S REM £51 in 187 ,£53 in 189 
7 REM e £54 in l9© 

.0 PRINT RT X , y ; S * : LET X -X - < 1 
>4.510=253) + (IN 65278*851) : LET 
y »y - ( IN 65022*854. RNt> y il) + (IN 
63022*851 RND y <20) 

3 0 L. ET l. a U 3 R 38000 : P RI NT a $ : R 
T X . y : ri I : LET S*S+1: PLOT £39 ,9 : 


1 

1 

1 

1 

3i 

M 0 
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DRR U 8 .1 


DRRU 8 , d : PLOT 939 , g + MJ : 
d : LET g «g + d 

4-0 LEt rlsINT (RND *21) : LET fS 
■ (ai-ri) #B: PRINT RT r 1 ,30 ( q. $ R 

NO r a > g + 0 RMD i" a g + w - © J 

5 0 IF q < 16 OR g+w >159 THEN LET 
d s-d : GÒ TO 70 

6© IP RND>.8 THEN LET d«RNO*10 
-5 

7© LET w*ui-(W>30 RND S » INT ( »s 
10» *10) : GO TO 30+(60 RND ( RTTR 


( X 


) < > 8 

POR 


OR RTTR C 
i =0 TO 4.0 : 


. M + 1 il < > pi ) il 

' PRINT RT X . y 
; INK RND *4- +3; "RE" : BORDER RND *7 
BEEP .01,1 : NEXT i 
90 BEEP 1,-10: LET iìì e n «m en-1: 
PRINT RT 0,3 .1 "PONT la"; & ; "RESTO » 

" ; men 

10 © ip m e ri > 0 thè n p o k e: a 3 0 a 4 ,17 
© : INPUT " ENTER per a L t r a o n d a t. a 
LINE b $ : GO SUB 5200: GO TO 


a© 
110 
190 
K 7 j 
130 
14.0 

4999 

5000 
SO 10 
5020 
s 3 


POKE 33624,7 

pR i nt rt a ì , ia ; plrsh 

GARA FINITA" 

PRIJSE 100 
STOP 
REM 

GO SUB 9 00 0 : 

GO SUB 8000 : REM rn 
LET 5 «0 : LET ui«100 


IN 


* * I Pi i Z 1 a 


S100 L-ET a«sCHR$ 16+CHRS 
.ro ai: let as«a$+CMR* 


i =0 

$ i+CHR 
SI10 LE 
Sia© LET 
5130 LET 


LET rn 
6 


ri 


;jji X •+• ' ' 

£• *»CH R * 
rìaCHRj 
q *aCHR$ 


18+CHR* 1+"C" 

5S00 LET X =19: LET 
LET g ss ( 176 -ui ii 


N E XT a. 

1 © + C HR« 
1S + C H R * 
18 + C H P! Ufi 


p O R 

a + C H R 


8 •+• 

8 + "(AB" 
a + C H R Iti 


sa 10 

10-5 

5300 

L 5 : 
53 10 


y =5 

■a : LET 


::l 


BORDER 
INK 4 
PLOT 0 


O 


16 : 

9 7, (143- W il X a 
iq3a0 PLOT 0,159 


U 97 
5330 
54 8 0 
54 90 

7999 

8000 
O 32023 : RERD 
i: RETURN 


( W — 14 3 1 
POKE 23624 
BEEP 1,10 


REM 


PRPER 0 : INK 
DRRU 150,0 : 
DRRU 150,0 
, 0 : INPUT , , 


iRND * 
© : C 

DRRU 
D R R 


1 1 


iMriiWj[riìr,ii--ririn 

.TORE 81 OC 

3 : \r U R ì = 3. ; 


P O K E i 


10 0 0 T 
NEXT 


8100 DATR 1,255 , a, 1 
© 237,176,1,0,94 , ' “ 

, 237,176 , èli 
3999 REM H 
900© RE STURE 9100 


0 


i. 

> O ,i •-.? 


17,0,64,33,1 ,è4 
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9010 FOR ial TO 3 

9020 FOR n=0 TO "7 : READ a: POKE 
USR CURI (i +143) +n ,a : NEXT n 
3030 NEXT i 
3040 RETURN 



Note 


10 


£0 

30 

40 

50 

60 

70 


80-90 

100 

110-140 

5020-5130 

5200-5210 

5300-5330 

5480 

8000-8100 

9000-9040 

9100-9120 


Salvataggio della memoria per il codice macchina e 
inizializzazione 

Cancella la navetta, predispone gli INPUT e muove 
Effettua lo secoli, aggiorna il punteggio e 
disegna la caverna 
Disegna le mine 

Controlla se la caverna esce dallo schermo 
Varia l•' inviluppo della caverna 

Riduce l ■' ampiezza e rileva se la navetta ha 

urtato qua. I cosa 

Urto 

Predispone una nuova ondata 
Fine della gara 
Variabili da non ridefinire 
flit-re variabili 
Predispone lo schermo 
Introduce il suono 
Predispone la routine di m--'c 
Definisce gli UDG 
Dati per gli UDG 


L.' ultimo game di questo capitolo, presenta uno scroi ling 
verticale. Dovete controllare uno sciatore rosso facendolo 
scendere in slalom attraverso 25 porte. Se urta una bandierina, 
un albero o salta una porta, la gara ha termine. 


I controlli a vostra disposizione sono : F-sinistra, G-giu' e 
H-destra. Una volta premuto il tasto, lo sciatore prosegue 
nella stessa direzione fino a. che non azionate un altro tasto. 


Elenco delle variabili 

n Loop dello sciatore prima che appaia la porta 

P Coordinata della colonna, dello sciatore 

a* Stringa contenente l' input da tastiera 

d Direzione dello sciatore 

g Posizione delle porte 

r Numero random relativo alla, posizione della, porta, 

successiva. 

ri Aggiunto a. "g" per cercare la posizione in cui 

Piazzare gli alberi 
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z* Stringa contenente una fila intera di alberi 

presentata con dei PRIHT 
a< . > Rrray relativo al ruotivetto 

m Si alterna tra 0 e 8 per suonare la prima o la 

seconda meta' della melodia 

e Marker per rilevare se lo sciatore si e' 

schiantato o no 

s Loop che predispone il conteggio delle porte 

g4 Stringa contenente la porta. Contiene i caratteri 

di controllo del colore. Lo sciatore deve passarvi 
in mezzo ma non attorno 
n, 

i Usate come variabili di controllo dei loops 



Caratteri UDG sono presenti alle linee 310-graphic B: 328 
graphic E;, e 5120-graphic D. 
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3 0 PRINT RT 10?p ; " " : POKE S 3 6 

9 2 . » 1 : PRINT RT £ 1,0 : PRINT 

4- 0 l_ ET a $ s= IN K E Y $ : X F a * > " e " R N 

D a $ •< "i " THEN I.ET d «CODE a *-101 


3 0 LET p «p + d -S : XF NOT 
31 THEN LET d ~£ 

60 PRINT RT 10., P.; INK i 
1.4- 3 + d .i 


p OR p » 
ì CHR* ( 


70 L. ET gs=g+rl 
30 PRINT At £1,0.; 


; TRB 


0.; INK 4- ; Z * ( TO 
g + © ; X N K 4-z * ( g 


g-S) ; INK £; TRB g +© ; INK 4.z * ( g 
7 t o ì 

3 0 beep ( „06 RND n < >3) , a(iri+n> 
100 XF RTTR (10 ,p) < >53 THEN LET 
essi: LET n ss© 

110 N E X T ri : RETURN _ 

14-9 REM 


130 FOR S ss 1 TO £3: GO SUB 

130 IF e T H E N GO T O SO0 
170 LET lìì ss rii + ( 3 RND NOT rn i 


1 © 0 I.EX" r ss X NT (RND*2S-12) 

O 13 0+( q + r > 3 R N D Q + i“ < £ 4. ) 
190 LET rls=r, -10 
£00 PRINT RT £1,0; INK 4-.; 
g - 4- :i ; g $ ; X N K 4- ; z * ( g + 7 T O 
Nt RT £ 1,0 F L R S H 1.; s 


!ss! 0 

(B RN 
GO T 


C TO 
PR I 


a 10 

N EXT 

a 11 


I::::! 4. 9 

REM m 

£50 

LET r 

sub a 

0 : XF 

£50 

N E XT 

£ © 1 


a 9 9 

REM & 

300 

F O R i 

30: BORDER 

3 10 

PR INT 

a , - 1 : 

PR IN' 

3 a 0 

PR XNT 

N E XT 

i 

3 30 

PR xNT 

5 ; F L 

R S H 1 

TO" 


4.00 

SX" 0 P 

4- 9 9 

r e m m 

5 0 0 

F' O R i 


r 1 =0 : por i ss i to a 

X F e THE N GO T O 30 0 
T i 


INK 4. ; Z 
•• BRRUO 


BEEP . 1,RND* 

' ■ P n K E P. 3 3 9 
'B";flT £1,0 
TRB 3 1.; "E" ; 

PRINT RT 3, 
HRX TERMINA 


500 FOR :i.ssl TO £5: BORDER RND *7 

BEEP .05 . i : PRINT RT 10 . p; INK 

RND *5 ; CHR $ (14.3 +d) : NEXT i 

3 10 PR INT RT 5,5: FLRSH 1; "RUGU 
RX PER LA PROSSIMA" 

5 a 0 ST O P 

5000 GO SUB 9000 
5 100 LET rii ss© 

5 110 L ET z $ = • ■ E E E E E E E E E E E E E E E E E E E 
EEEEEEEEEEEEE" 

5120 LET g $=CHR$ 16+CHR* 0 + ” D" 

+ CH R* 1©+C H R* s + " " +CHR$ 16+CH 
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R $ © + " D 

5 15 © D IM 

55 1S © F O R 

EXT i 

sa0 0 I.ET 

ss: 1© I... ET 


* © 

5300 

L. S 

5490 
© 4- Si 9 
© S 0 © 
. 0 , S 
5©00 
F O R 
C HR* 


a < 16 
i = .1 


P 

r 


.ì : RE STORES 8500 
TO 16 : READ a ( i 


N 


L ET 
BORDER 


G 0 T O 
R E M D a 
D AT A 0 
S .7,0 
R E ST O R F 
ri =0 TO 7 
( i +14- 3 :• + 


15 : 

L. ET d 

~ p 



© : 

1.ET ri 

«0 



0 : 

L. ET g = 

15 



4 : 

P A P E R 

-•7 

i 


INK S : C 

150 





t. i 

P e r m o 

t. i 

V o 


, 0 , 

0,0,9 , 

9 , 

11 

, 0 ., 0,0,0 


RETURN 
©1©0 DATA 


! 4 
9 1 1 © 

, 3 © 

9 1 a © 

■9 1 3 © 
9 14 - 0 


D RT R 

D RT R 
DRTR 
DOTA 


9000 • FnR j al TO F. • 
READ a : POKE USR 
n , a : NEXT n : NEXT i 

4-© , 4-© a© .. 4 © 16 37 .. a© .. a 

36,3© , 126 126,60,3 6 3 6 

•ia , ia , s© , ia , © , is«© , s© , 7 
4- , ci© . ©0 . a© , 4 , 4- , 4- , 4. 

© a© , a© ©a , ©a , la? , © , a 


Note 


20 - 11.0 


30 

40-50 

60 

70-80 

90 

100 

150-210 


180-200 
250-260 

300-400 

500-520 

5000 

5110-5120 

51 . 30-5160 

5200-5220 

5300 

9000 

91 . 00-9140 


La routine principale e' una subroutine usata, in 
due occasioni 

Cancella il vecchio sciatore ed effettua lo scroi 1 

Movimento dello sciatore 

Disegna il nuovo sciatore 

Disegna gli alberi 

Suono 

Rileva 1' eventuale urto 

Loop delle porte che richiama la routine 
pr i nc i pa. 1 e 
Disegna la porta 

Presenta lo sciatore alla fine, dopo V ultima 

porta 

Fine 

Routine dell' urto e fine 
Definisce gli UDG 

Stringhe per disegnare alberi e porte 
Inserisce i dati nell' array per il motivetto 
Definisce le variabili 
Colori 

Definisce gli UDG 
Dati per gli UDG 
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Capitolo 7 


USO DEGLI fiRRRY 

Gli array <matrici) sono delle variabili e come tali vanno 
usati anche se e' possibile affidargli diversi altri compiti. 
Esistono, come per le variabili, due tipi di array : quelli 
numerici che contengono unicamente numeri e quelli di caratteri 
che memorizzano lettere o stringhe. Per comprenderne bene la 
struttura, immaginateli disposti come una tabeII ina divisa in 
settori ciascuno dei quali ospita un numero o un carattere. 
Prima di poterli usare, vanno dimensionati per mezzo 'dello 
statement DIM : 

10 DIM fi <500) 

In tal modo si prenota lo spazio in memoria per la "tabella" di 
nome fi, la quale inizialmente ha tutti i suoi elementi a 0. 

11 nome e-' seguito da un numero racchiuso tra parentesi 
chiamato "subscript" della variabile. 

Analogamente avviene per gli array di caratteri. 

10 DIM fi* < 500 "> 

significa che l'array fi e' formato da 500 elementi ognuno dei 
quali contiene un carattere che inizialmente e' uno spazio. 
Provate ad aggiungere alla linea di cui sopra 

20 LET fi* <1)="Ciao" 

e quindi date il PUH. Fatto ciò' inserite il comando diretto, 
PRINT fi* <1> e vedrete che lai risposta sullo schermo non sara' 
"Ciao" bensì' solo "C" in quanto ogni singolo elemento non può' 
memorizzare piu' di un carattere. Volendo pertanto sistemare 
"Ciao" in un array dovrete ricorrere a piu' di una dimensione 
come dimostrato facilmente da : 

10 DIM fl*<100,5) 

In questo modo avrete dimensionato una matrice da 100*5=500 
elementi in totale. Battete ora : 

20 LET fi*<l)= "Ciao" 

fatelo girare e quindi date PRINT fi*<1). fi questo punto la 
risposta sara' "Ciao" in virtù' del fatto che fi*<1) viene 
considerato come un array a se' stante lungo 5 caratteri. L' 
analisi di ogni sua parte e' facilmente ottenibile studiando lo 
statement : 

30 PRINT fl*< 1 ),fi*< 1,3) 
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il quale mostra sia 1 per intero., sia il suo terzo 

carattere. Riscrivendo fl*< 1,3> come ft*< 1X3), otterrete una 
ulteriore tavola di altre due dimensioni. Ciò' per dimostrare 
come un array possa avere quante dimensioni si voglia. Od 
esempio., DIM 3,6., 7 ,2 3 ha quattro dimensioni e possiede 

3#6*?#2*252 elementi. Maturai mente, ogni elemento deve venire 
caricato con lo stesso numero di "subscript".; non ha senso, ad 
esemp i o., 

10 Din fl<: 10,2 > 

20 LEI 1 :>=? 

poiché' il computer non sa se caricare il 7 in FK 1,1> oppure in 
fl< 1 , 2 > . 

Usando gli array con un loop 1 continuo, potete generare 
motivetti con dei BEEP random disponendo appropriati valori in 
ogn i e 1. emerito 


10 GO SUB 5000 



30 

BEEP » 

«S i 

a ( m i 


LET 

rii 

SS 

rn 

+ 1 • 

- (64 


R N D 

ri» = 6 4- > 











3 0 

REM Re 

S t 

o d 

i. 

P> r o 

9 r 

a 

rn rn a 



200 

G O T O 

20 









cs; 

100 

D X M a ( 

6 4 

1 








FI 

1 1 0 

L. ET rn 25 

1 









5 

300 

RESTOSE 

0 00 0 








rs; 

a 10 

POR a 2 = 

1 

T O 6 4 







FI 

330 

R E R D a 

( a 

) 








FI 

a 30 

MEXT a 










FI 

4-90 

RETURN 










;ri 

000 

DATA - 

5 , 

— 3 , — 

Fi 

, 0 , - 

B , 

0 

, 

GS* 

o 

. 0 , - 

FI 

, 0 , - 

-55,4,4., 

I-J^I 1 

4 , 0 








•3 

0 10 

DATÒ - 

FI 

~3 , - 

B 

. p t 

Fi 

JE> 

, 

-5 

1 Imm, 1 

Fi 


FI . Fi , Fi 

4 , 

!5,3 








8 

0 a 0 

D Pi T h 

5 . 

— 3 i 


, 4,4 

, 4 

, 

4 

. 55 

£> O 

, 

S i 0 . 

. 0 , a , 4 , 

Fi 









F; 

0 30 

D RT R - 

5 . 

~3 , ~ 

5 

, 1 Wh 

Fi 

4 


~s 

. S . - 

5 

, , .. 

.. !•=;; , ...» !5 , _ 

3 , 

~ i, a 

, <! 

a 







Constaterete voi stessi questo piacevole effetto nell.' ultimo 
programma del capitolo. 

Gli array possono anche contenere le coordinate degli oggetti 
da muovere sullo schermo. Un esempio di ciò', lo potete avere 
sia nel. game "Zap", in cui l ' incremento di ogni singola 
variabile muove a. turno un invader, sia nel programma, che segue 
intitolato "Gara delle pulci". 


10 GO SUB e; 000 

30 POR i=1 TO S 

30 PRINT RT i *3+a,X ( i 1 .1 " " 

,10 I.ET x ( i ! »x ( i i +RND#3 

5 0 PRINT RT i *3+a . X ( i !• ” R " 

60 IP X(il >27 THEN GO TO 90 
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70 

©0 

BEEP 

. 05 

G O T O 

a© 

90 

PRINT 

RT 

BRIGHI 1.; 

" B " 

100 

B E E P 

1,0 

1 1 © 

C L.. S 


i a 0 

P R I NT 

RT 


05 ,RND *30-15 
i *3 + 9 30 ; 


■NEXT 
F L R S H 


3 , 9 ; " N u ri i e r o " ; :i. : ' 

ince" 

130 POR rial TO a 

14.0 XP p !n! =i THEN PRINT RT 5 
"Gioc , " ; CHRì (n+64.) ; " v i n c e 

; b < n :• : LET c (n ) a c t n :i + b ( n :• *9 


© 

£: 


; "Gi o 

c . " ; chré (©4+ n ;• 

\ 

' ' p e r d e 

' ' 

• "TRB 

7 ; ' 1 G i o c . 

CHR* 


(6 5 +NOT 

( 

n -1 i j 

' ' U ince " 





160 

NEXT n 





170 

IP c(1 t s0 OR 

C ( 9 J 

ss 

0 T HI E N 

S T 

OP 






180 

GO SUB 5100 





190 

GO TO 90 





4 999 

REM i n i Z : 





5000 

D IM X ( 5 > 





50 10 

O IM p ( 9 :i 





5©a© 

DIM b(9:i 





50 30 

D IM c ( 2 ) 





5040 

LET c •: 1 :» «9 5 : 

LET 

c 

( 9 ) « 9 5 


5050 

G O £■ U E' 9 000 





5060 

GO SUB 5100 





5070 

RETURN 





5100 

F O R i ss 1 T O 5 

LET 


X ( x !• sa 22 : 

N 

EXT i 






5 110 

POR i«1 TO 9 





5 120 

PRINT •'"Gioc 

■ 

c 

M R « ( i. + 6 4 

} .• * .• 

c o n ri u rii e r o ( 

i - 5 ) 


' ' ; 


5 13 0 

LET ai=INKEY 

$ : IP 


a * < " 1 " 

OR 

a * > " 

5" THE N G O T 

O 5 13 

0 



5 140 

LET p •: i i «URL 

a $ 




5 150 

IP i«9 AND p 

( 1 :i « p 

( 

a:i tmen 

G 

0 T O 

5 13 0 





5 160 

PRINT a $ - 

O u a ri t 

o 

& c o in m e 

t. t 

i 

" ; CHR$ ( i 

•+■ 5 4 ;i 

• » 

•7 . H 

a ti. 


f: " ; c ( i :• 



i I • 


5170 

INPUT b ( i) 





5160 

IP b ( i ) < :••• INT 

b ( i ;i 


OR b ( i i 

> c 

( iJ OR b ( i ) < 1 THEN GO 

T O 5 170 


5 19 0 

PRINT ; b i; 

i :i 




5900 

LET C ( i :i « C ( i 

:• - b ( ti. 





sa 10 

5S20 
5 300 
LS 

5 3 10 
U L c i 


M E XT i 
BEEP 1.10 

BORDER a : PRPER 4: TNK 0: 

PRINT ' T R B 10.; "Gara delle 


p 


5 3 90 

POR ial 

TO 5 : 

PRINT RT i*3+ 

9 .. 0i 

1 " R " : 

NEXT i 


5 3 3 0 

RETURN 



90 0 0 

RESTORE 

9100 : 

P 7 O P ti. =£ il. T 0 22 : 

POP 

n «0 TO 



90 10 

3 i + n . 

r e: r d a : 

3 

' POKE 

U S R C H P * ( i •+• 14. 
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9020 NEXT 
9100 DfiTfi 

s , a 31 

9110 DflTfi 
4 ,204. 


n: NEXT i: RETURN 

iós 10 s s4-ia9 ia© .. 0 3 

5 1,51,204. , 204 , 5 1 , S 1,20 


Gli UDG sono insiti nel listato alle linee 50-graphic fi, 
90-graphic B, 5320-graphic FI. 

Ogni giocatore può. 1 ’ scommettere su quale pulce vincerà' se 
entrambi sbagliano, perdono la cifra, puntata mentre se vincono 
incrementano il bottino. 

Le matrici possono essere impiegate anche come "marker" dello 
stato di qualsiasi cosa presente sullo schermo. Lo vedremo tra 
poco nell' impegnativo programma "ICBM". 

Gli array di stringhe trovano particolare uso nella 
presentazione del display. Battete il programmino che segue il 
quale, anche senza l' uso di array, da' l' impressione del 
movimento continuo : 


LET a $ 



LET i al 


3 0 

B O R D E R 0 : 

PAPER 0 : 

4 0 

PAPER : 

INK 1 

50 

P R I NT RT 

10,1a $ ( i. 

i l 1 

T O i ) 

© 0 

LET i i ■+• :1 

L- (30 AND 

70 

G O T O 5 0 



C L. 3 

TO 30) a 
■i. ss 3 0 ) 


Sullo stesso principio, il prossimo che di linee in movimento 
ne presenta tre : 


10 

LET a $ 

:r.:: ' * j 

NUMMI MNMHNM MMMM HHMI 

WmKÈ 

L.IPP^ :i. 

i • 

i 


sT© 


3 0 

B 0 R D E R 

_0 

: PAPER 0 : CL.S 

4 0 

PAPER 

7 ! 

INK 1 

5 0 

F O R n ~ 

1 

T O 3 

60 

P R I NT 

RT 

& + n *2, 1 a * ( i TO 30 

a $ 

i: i to i 

) 


70 

N E XT n 



6 0 

LET i 

:i. ■+• 

1 - i 3 0 R N D i = 3 0 ) 

9 0 

G 0 T G 

50 



Piu' difficile si presenta il discorso quando le tre linee 
devono scorrere in direzioni differenti. Il programmino che 
segue impiega due variabili denominate "i" per sfilare la linea 
di centro verso destra e le due laterali verso sinistra. 



LET a 515 « • 1 NNM UHM 
LET i L *1 : LET i r =1 
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30 

BORDER 

0 

: PRPER 0: C 

L S> 

4-0 

PAPER 

7 : 

INK 1 


50 

FOR ri * 

1 

TO 3 


55 

LET i t 

a < 

i l. AND n < > 2 :i 

+(if AM 

n*2) 




©0 

PRI NT 

RT 

© + n * S , x ; a $ ( 

i t. TO 3 

a $ 

r 1 TO 

i t 

) 


70 

NEXT ri 




60 

LET il. 

a» i 

L 4-1 - ( 3 0 R N D 

i 1. sa 3 0 :i 

SS 

LET i r 

a i 

r-l+(30 ANO 

i |-=1» 

90 

GO TO 

50 




Il risultato e' accettabile, ma desideramelo variare la 
velocita' di scorrimento e' necessario apportare complicazioni 
al programma. E qui subentrano gli array. Per ogni riga, sono a 
disposizione diversi "quadri" ordinati in modo che la loro 
sequenza dia l' impressione del movimento. I "quadri" sono 
memorizzati in un array e le righe in un' altra dimensione 
dello stesso array. 

Per ottenere il movimento di tre righe separate, dovrete 
ricorrere allo statement DIM H#(3,nl,n2> in cui "ni" e' il 
numero dei quadri prima che la sequenza si ripeta e "n2" e' la 
lunghezza di ogni quadro nell' array di stringhe. I due 
programmi che seguono, mostrano gli array in azione. Nel 
primo, "Snakey", disponete di un serpente (formato da una fila 
di "V" > che voi dovete guidare in uno stretto cunicolo badando 
di evitare i blocchi che vi si fanno incontro. La testa del 
serpente, rappresentata dalla prima "V", la spostate a sinistra 
con il tasto 5 e a destra con il tasto 8. La partita ha termine 
dopo aver urtato dieci blocchi ognuno dei quali viene segnalato 
a fianco con il numero relativo lampeggiante. 

Elenco delle variabili. 


a< . > 

c 

a 

P 

n 

s 

i 

V 

X 

X* 


Array con i dati del motivo 

Contatore per la parte di array interessata 

Posizione dei blocchi 

Numero della colonna con la testa del serpente 

Numero dei blocchi urtati 

Punti 

Controllo dei vari loop 

Durata della nota del motivette 

Tono della nota 

Scrive i messaggi, a fine gara 

Variabile di controllo per predisporre a<.> 


10 

c 

L 3 





S0 

G 

O 

SU© 

5000 



30 

L„ 

ET 

a = 

X NT < R 

M D * 4. :i 

+ X 0 

40 

P 

O K 

e a 

3692 , -- 

X : P R 

X NT 

PR 

X 

NT 






50 LET 
3 )- <IMKE 
©0 IF 


AND p < 1 


P ss p + « X N K EY $ » " © 1 
Y«s"©" AND p >10: 

ATT R ( 1 © , p :• * X © T H E N L. ET 
EEP .03,24.: PRINT RT SI 
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15.; FLASH 1 ; n : IF nsl0 THEN so t 

o a 0 0 

70 PPi INT RT SI ,9.; " ■" ;TflB 14; "l 
flT 1© , P ; "U" : PftINT RT 21,8.; PR 
PER a.; " " 

80 BEEP .03,8 ( C il : LET C * C + 1 - ( © 
4. RND C =64 ) 

90 LET s«S+l 
10 0 GO T O 3 0 

£00 PRINT RT 1© , p ; "U" RT Si , 9; " 


a 10 

Fi ERO v 


Gestore e 


FOR i=1 
X : NEXT 


TO xa 

i 


3100 : 

_ . .. X : BEEP v ,.. - 

220 PRI NT RT 10,16.; "Tuoi punti» 
‘ ' ; RT 1S . 18 ; s 

£30 PRlNT RT 14. , 18; "RUra gara? 
".; RT 18,18; "Premi Y o N" 

34-0 GO TO 24,0» (930 AND INKEY$ = " 
y " + i lNKEY$ = "n " > 

250 CLS RESTORE ©900: PRINT R 
T 3,10;: FOR ia1 TO 14: PERO V,X 
, X * : PR I NT X $ ; : XF i /3 » I NT ( i /S) 
THEN PRINT TRB 10; 

260 BEEP V , X : NEXT i 
4990 STOP 

5000 DIM a (64) : RESTORE 8000 

5010 FOR a ~ 

EEP . 01 , a : 

S020 LET £ 

5030 LET p=lS 

5400 RETURN 
©000 DRTR 
0,12,0,12, 

©010 DRTR 
5 , -1,11,-1 
8Ó20 DRTR 

7 , 1 © , 12 , 16 , x & , x g- , xx, x x 
8030 DRTR 5,14,li,li,B,14,11,11, 
5,14,11^14, llj.6, là, lé 

i ,i 4-, • a , 0 i « a i 

5 . « a . 7 , . r , 7 . 


al TO 64-: RERD a 
NEXT a 

(a ) 

B 

= 0: LET ri »0 : 

= ia 

N 

LET 

c » 

ì 

7,0,12,12,7,0 

-1.11,11 

, 12 

, 12 

. 7 . 

S.-1,11,11,5, 
,ii,0.i2,ia 
7,i6,la,la,7, 

,, 12,14,11,11 

- 1 , 

11 , 

11 , 

1© , 

ia, 

ia, 


0 ,i • 

» a, 


1 , 16, " V e 

Arri",.1,7,"vede 


8100 DRTR .1.7, 

, 0 , .i, a , . i, d., . i 

éà0Ó“ DRTR . 1,14, "Arri " , 
de " , 1 ■ 1 , 1 a "rei 
©a10 DRTR .1,9, 

".1.1,14,"rei" 

8220. DRTR .4,19, "La" , .3,17 , "cri " 

« .1,14- , rii 

8230 DRTR . 4- , 19, "La C r i rr. e " , . 3,17 , 
" nei",. 1,14." miei " 

8240 DRTR . 1 , 16, "Occhi " , 1. a . 13 . " 
iii ! " 


Note 

28 

48 

58 

68 


Iniziaiizzazione 
Scroil 

Mosse del giocatore 
Rivela gli urti 
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70 Diceva il serpente e i blocchi 

80 Musica 

99 Punti 

200-210 Fine della partita 

220-240 Bit di fine gara 

250-4990 Fine del programma 

5000-5010 Inserisce i dati nell' array 

5020-5030 Definisce le altre variabili 

8000-0030 Dati per il motivo durante - la gara 

8108 Dati per il motivo di fine gara 

3200-8240 Dati per messaggio a fine programma 

Il secondo programma,"ICBM", e' una versione del. piu' noto 
"Missile command". 

Scopo del game, e' il salvataggio di sei citta', mostrate 
sottoforma di blocchi, da uno stormo di missili che si 
presentano ad ondate successive di •venti, elementi, ognuna piu' 
veloce della precedente. Potete distruggere i missili in caduta 
posizionandovi al disotto e sparando con lo 0. 

La vostra posizione varia in senso antiorario col tasto "6" e 
in senso orario col. "7". Se avete qualche perplessità', 
consultate la freccia nella parte superiore dello schermo. Il 
game ha termine con la distruzione delle sei citta'. Ad ogni 
10.000 punti vi viene regalata una citta', il numero dei punti 
aumenta ad ogni ondata e varia a seconda dei missili colpiti e 
delle munizioni risparmiate...il resto lo scoprirete da voi. 

Elenco delle variabili 


mi* 

f < , > 
m( . 

<:( . > 
y<. > 
d< . > 

b< . > 


a< . > 


y 

b* 

d i r 


move 


arnmo 

count 


Missile in discesa dal cielo 
Array relativo ai missili 

Punto di origine dei missili situato sulla parte 
alta dello schermo 

Coordinata orizzontale della testa del missile 
Coordinata verticale della testa del missile 
Numero dei pixel necessario al missile per 
raggiungere la citta' da. distruggere 
Citta' selezionata dal missile. Se e' la 3 il 
missile centra la base 

Array che riporta, quale delle citta' sia stata 
distrutta 

Citta' selezionata <in b< . >> sottoforma del numero 

di pixel orizzontale 

Numero deIle citta'.distrutte 

Coordinata orizzontale della base 

Coordinata verticale della base 

Usata per l' input 

Direzione della, base 0=su, 1 “su. a destra, 2 a 

destra ecc... 

Numero dei pixel della base mossi ogni volta 
(diminuisce man mano che la gara si fa piu' 
difficoltosa> 

Munizioni residue 
Missili per ogni ondata 
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i nk 
1. 

ni 

dd 

Paper 

te 


c :i. ty 
mark 

bJ 3. V <5 

afom 

city 

down 

i nk 1 

se 1. 

xc 


ne 
a 1.. 

9.2, 

93 


Colore di INK 

Usato come controllo desi loop per veder© se ogni 
rn iss i le co lp i sce < l i nee 420-468 > 

Valore per predisporre un nuovo missi le 
Punti 

Grado di difficolta' 

Colore d:i PRPER 

Valore temporaneo di b <. > per calcolare la 
scrittura della colonna per 1' esplosione della' 
c i tta ' 

Quale citta' e' esplosa 

Usato per calcolare se tutte le citta' sono state 
colpite 

Conto delle ondate 

Punti delle munizioni rimaste 

Punti delle citta' rimaste 

Numero dei pixel relativi ai missili caduti dopo 
ogni ondata 

Colore delle munizioni a terra 

Punteggio in 18.090, usato per calcolare quando 
dare una citta' gratis 

Memorizzazione delle citta' elargite. Se tutte le 
citta' sono ancora in piedi dopo aver raggiunto i 
10.800 punti, la citta' viene conservata per 
ulteriori bisogni 

Posizionamento random della nuova citta' 


Usati per la casualità' dei colori di INK e PAPER 


10 GO TO 30 00: REM H3HEI 

30 GO TO 690 

99 REM llDaftlSl 

10 0 L ET rii i — rii i s + 1 — t 4 Pi nD rn is=4 1 

110 IF f finis) TMEN GO TO 300 

120 IMMERSE 1 

130 PI.OT rii CWiiSi , 163 : DRRU X < m i S 

i — rii ( rii ì. s i , y ( rn i s ) — 1. 6 3 

14-0 LET y (mi s i =y f rn i s i — d o w n 

■ 1.50 LET x ( m i s I =% ( rn is) + ( d < rn i s I *d 

o w n J 

1 e- 0 IN U E R S E 0 

170 IF y ( m i &) <16 THEN GO SUB 60 

0: GO TO 190 

1S0 PLOT rii (miS) ,163: DRRU X ( rn i 5 

) - rn ( rn :i. «, i , m ( rn i s i - 16 3 

190 IF c=:6 THE M GO TO 4000: REM 

2U0I -IMMERSE 1 : PLOT X -2 , y : DRRU 

4,0: PLOT X , y : DRRU 0,4 

2 10 L. E T b$ = I N K E V « : IF b $ = " 6 1 • T H 

EM LET di r adi r-1+ (3 AMD di r«0i 

2 20 IF b rii = " 7"‘ THEM LET diradir + 
1 -• ( © R M D d i r » "7 ) 
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2 3© L ET x » x + rei o v e * ( (di r 0 R N D d i 

C < 4- RND X <24.8) - ( d i r > 4- RMD d i r < *'7 

RND x >7) :• 

24.0 LET y =y + rnove * ( ( (di r *7 OR d :i. 

r *0 or di r ~ 1 :i rmd y < 150 i - •: d i r > a 

RND dir<6 RND y>23)) 

23 0 IN U ERSE 0: PLOT X ~S . y : DRRU 
4,0: PLOT X , y -a : DRRU 0.4- 

aé.0 IF INKEY$ = "0" RND ammo>»5 T 
H E N G O S U B 4.00 

270 PRINT RT 0,10; IN K 2; PRPER 
; CHR4 (148+dif) 

3 0 0 IF ^ c ° TO 100 

4.00 INK 2 ! PLOT 12 7,16 : DRRU x - 

127,y- 1© : INK i ri k ; IN UER 3 E 1 
4-10 BEEP . 005,10 +RND *20 
4.20 FOR Za 1 TO 4: IF y +10 <y (Z ) 

O R y :> y ( z .1 O R x + © < x ( z i 0 R x © :> x ( z 

:i THEN GO TO 460 
430 PLOT rii (Z) , 163: DRRU X (Z) -W ( 
Z),y( z )-163 

440 LET nl=z: GO SUB 700 
450 LET SCtSC+dd*10+40 

4 60 NEXT z: LET a rii rn o » ( a rn rr. o -s rn 
D a rn rn o > » 5 i 

4 70 INK 2: PRPER i ri K 1 : PLOT 127 
. 16 ; DRRU X -127 , y-16 : PLOT 24© . 3 
D R R U a rn rn o 122.0 


4S0 

IN U ERSE 

0 : 

INK i ri k : PAPER 

a p e r 
420 

n ’F't 1 1 *5 

00 : 

RETURN 

422 

r é m 1 sMianiì 

II 


500 

PRINIRT 

0 . 

, 30 -LEM STR* :=!• c 


" 6 0 É INK 

6 10 IF b( misi a 3 THEN GO TO ©00 

©20 LET t ©ab ( rii i s ) *4 +3 

©30 PRINT RT 20 , le; ” " ; RT 20 , t 

e.; "CD" : PRINT RT 19 . te ; "RB" 

© 4 0 B E E P . 0 © , - 10 

© 5 0 IN K i ri k : P R I NT RT 2 0 . t e ; " M N 

■ ‘ ; RT 19 , te ; " 

660 BEEP .08,-20 

©7 0 L. ET ci tysb ( rn i «. i + ( b ( rn i •?, i < 3 i 

©60 IF c (City) =0 THEN LET e ( c i t 

gial; LET Ca c +1 

©20 LET niarniS: GO SUB 700; R ET 
1 J R N 

||| rem . , t 

7 1 0 IF C O U ri t > a 0 ° T H É N ' L. ET f (. n £ i a 
1 ; GO TO 750 

7 2 0 L ET rii ( ri 1 ;i al NT (RND#2 S © i : L... E 

T b ( ri X i a I UT ( R N D * 7 i 

730 LET a (rii) = b (ni) *32+32; I.ET 

d ( ri 1 ) a ( a ( ri 1 i rn ( n 1 i i 1 4 S 

740 I.ET x (ri li *« (ni) ; L ET y (ni) a 


87 



160 
■7 60 
000 
= S0) 


RETURN 

L ET a rn rn o — (a m rn o-50 
INUERSE 1 


R w D a rn rn o 


©10 PLOT 2 4. e 


INUERSE 
820 BEEP 
©30 GO TO 
29 9 RE M 

1000 L. E T rn a r K e r = 

+ 1 : 1F W a V e ss 1 THE N 

L. E T d d =! d d + ( d d < © ) 

1010 LET a b rn ss s * d d : 

d : LET c i t y ss 100 *d d 
1020 POR issi TO 6: 
L. ET rn a r k e r ss ;i. : G o 

20 


DRflW a rn rn o - 199 ,0 



10 ' 

-1 
104.0 
106 0 
1060 
1070 
108 0 
THE N 


0 P R I NT RT 


if c ( i :• 
TO 1070 
i * 4- + ( 4- AND 


l.ij a V «£ sa Ij.l a V 6 
W e ss - 1 : 

b ni s* 2 5 * d 
THE N 


i > 3 ) 


L ET & c ss s. c + c i ty 
GO SUB 600 
BEEP .3.-30 

NEXT i 

L ET d o n.t n =s d o w n +2 
L ET rn o v e ss rn o v e - 


1 f d o w n 

r rn o v e > 2 ) : 


■ 12 
LE 


+ T le 

X tssXC+l 
k a» 1 : POR i 
LET rn a r k ss 0 


RWO s c 

s= 1 TO 


e> 


■ s 1 . 


I 


T d O W n ss 4- 

1020 POR issammo TO 1 STEP - 1 : LE 

T SCssSC+abrn : BEEP .0025, i /4: PLO 
T INK 9; PRPER i n K 1 ; INUERSE 1i 
+ 4-7.3: GO SUB 600: NEXT i 
1100 XF SC -SCI <16 4. AND X C ss® THEN 
GO TO 1190. 

1109 REM ,4a, “" 

1110 LET 

1+164): LET 

1130 LET ma 
F C Ci? THEN 
114.0 NEXT i 

1160 XF rnar-k THEN GO TO 1190 

1160 LET n C ss x NT (RND*6) +1: XF 

nei s= 0 THEN GO TO 1160 
1170 LET c«nei =0 
1160 LET X c ssx C - < 2 
T O 110 0 
1190 GO TO 3 “ 

1999 REM 

2000 LET a 

7 « INT ( RND * 

(RND*2i 
2010 INUERSE 
«0 : OUER 0 
2020 LET i 
LET pape 
20 3 0 L ET i 
k 1 ss-- i n k O R 
2 0 30 

204-0 INK i 

206 0 . 

i 0 6 0 


Pi n D x c > 1 i 


GO 



0 


BRXGHT 0 


FL.RSH 


n k ss: « a 1 # a 3 .1 + «32+ N ut a 3 .• 
r sa « a 2 * a 3 i + « a 1 * N OT a 3 ) 
nklssINT (RND*©) : XF in 
i ri k 1 = p a p e r THE M g O T a 




nk : PRPeR pa pe r 
BORDER ink: CLS 


PU 


>070 PRINT RT 21,0; PRPER indi 
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INK 9, 


rnun . 


D R R 1,1 0 , 5 ■ 

PLOT 4.'7,3 


INK i n 


9000 GO SUB 500 
2090 INK 9: PLOT 4-7 , I : 

PLOT 2 4.7,1: DRRU 0,5: 

DPR Li a m m o , 0 
9100 POR i«0 TP © 
a 110 INK iriK: IP i =3 THEN 

fc 1 

9 190 IP C ( i + ( i <3) :■ AND i < >3 THEN 

PRINT RT 20 . i *4. +3 ; "f-1N" : OD TP a 

1 © 0 

a 130 POR n ss 1 TP © 

a 14.0 PLOT i *39 +23 +n / ( 9 - ( i »3 J ) , 7 + 

ri : D R R U 1 © - Ti * C 1 + ( i « 3 ) .1 ,0 

9150 NEXT ri 
NE XT i 
RETU RN 
REM _ 

GO SUD w 141141 Vii : Htn WU.S1SJ 
R E M I s t. r u 2 i a n ;i. 

R r r a m d e, 1 . 1 .. a c % t. t. a -■ 

DIM c (©:• 

0: LET S C ls0 : LET m i 


REM 
L. ET 
LET 


2160 
950 © 

99 9 9 
3000 
3009 
3099 
3 10© 

3 110 
ft «0 
3 19© 
dd =1 
3130 LET 
314.0 LET 
3 199 RE M 
3900 DIM 

3910 DIM 
J : DIM f 
3990 LET 
3930 LET 
394.0 POR 
SUB 700 : 
3999 REM 
330© LET 
ssy : LET 
34.00 
35 

3999 


Inizia 1 . i z z a zi o n e 


C a 
& C 


: 0 


LET d o w ri ss 9 : LET rii o v e = © 


| p'1* 


1 : 

LET X C as 0 


ss* 

Mm 

E9HMSI 

X ( 4 ) : DIM 

y •: 4 

D IM 

a C 4 :t : DI M 

d (4 


b ( 4- ) 
r. 4 ) 

court t =0 : L ET a rn m o =*900 
di.|-= I NT (RND+S) 
i =s 1 TP 4 : LET n 1 « i : GO 

NEXT i 

X a* 19 7 : L ET y ~ li 0 : I ET y 1 

X .1 


UDG 


GO SUB 9000 
"^00 GO TP 10 r 
REM 

4000 STOP 
©999 REM ‘ 

9000 RESTORE 
POR ri =0 TO 
9010 RERD a: 

3) +n ,a : NEXT 
9090 RETURN 

9099 REM Esplosi o ri G 

9100 D RT R 7,©3,197 

f=; p; , £> 4 . "7 

9 11© DfiTfi SS4. , 258 , S54. , SS4. 

9 19 0 D RT R 99,3,3^7,7,15_,31^2S5_ 
9130 DRT'R 196,199,9 9 4. , 994,940,9 4 
© .959 9 5 © 

9199 RE M F recc e 


9 100: POR issi 

P o K E l. J S R C H R $ 
ri : NEXT i 


197,955 


l'O 14 
< i +14 


5 5,9 5 
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9200 
9£10 
9220 
9 2 3 0 
9 2 4.0 
0 

9230 
92 6 0 
9270 

9299 

9300 
9310 


D AT A 
DATA 
DAT A 
D AT R 
DATA 

DAT R 

D AT R 

DRTR 

REM 

DATA 

DRTR 


0 « , 2 6 
0 , 6 ' 2 .. 6 
0 ,16 , S 
120 . 64 
16 .. 16 


,42, 7 3 , © , © , © 

, 10 , 10 , 34 . 64,12 0 
, 4 . 254 , 4 , 0,16 
, 34 . 1 ©, 10 , 6 , 62,0 
1 ©, 14 ©,© 4 , 56 , 16 , 


1 

i 2 

, ©s 

, 

72 , 

©0 

© 

, 1 

© , 3 

2 

, 12 

© , 

0 

, 1 

24 , 

2 

© , © 

0 

R O '■ 

■■ i 

n e 

( 

d è l 

L a 

0 

, 0 

, 0 , 

0 

, 4* , 

14 

0 

, 0 

, 0 , 

0 

, «ss! , 

© , 


,96,124,0 
3 2 , ì © , 0,0 
'72 , ©a , 2 
c i t. t. a " :i 
,159,223 
39,250 


1 . 


Note 


10 

30 

100 

100-180 

190 

200 

210-240 

250 

260-300 

310 

400 

420 

430 

440 

450-470 

490 

500 

610 

630 

670-680 

690 

720-740 

800-830 

1010 

1020-1070 

1080 

1090 

1110-1180 

1190 

2000 

2020-2050 

2060-2078 

2080 

2090 

2100-2160 

3000 


I ri i z i al i zzaz i one 
Fuori gioco Csuccede• } 

Partenza del loop • 

Movimento del missile 

Testa se tutte le citta'' sono state distrutte 
Cancella l' attraversamento della base 
Valuta 1' input e calcola le nuove coordinate 
Disegna la base 

Testa lo sparo e disegna la freccia 
Partenza di una nuova ondata 
Disegna il laser 
Testà la co 11 isione 
Cancella il missile 
Predispone un nuovo missile 

Aggiorna il punteggio, testa il nuovo missile 
scala le munizioni 
Stampa il nuovo punteggio 
Stampa i punti 

Test per vedere se il missile ha colpito la base 
Esplosione 

Cancella la citta dall'array 
Predispone un nuovo missile 
Predispone i nuovi valori per il missile 

II missile ha colpito la base,non esplode ma il 
punteggio cala 

Nuovo valore dei punti 
Punti per le citta' rimanenti 
Aumento delle diffico1ta' 

Punti Per le munizioni rimanenti 

Aggiunge una nuova citta' se si sono superati 

10000 punti 

Iniziai izza il riposo, per una nuova ondata 
Colori random 

Predisposizione dei colori random 

Disegna lo schermo 

Stampa il punteggio 

Munizioni rimaste 

Disegno della base e delle citta' 

Definizione deg1i UDG 
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: 100-3148 
:200 
3240 
: : -:00 
3400 
4000 

-■000-9020 
100-9130 


Iniziai izzazione delle variabili Cariche 3220-3230!) 
Array per i missili 
Predispone i missili 

I n i ?.. i a l i zza. 1. •’ a te r a versament o de l cursore 

Disegna lo schermo 

Fine della gara 

Definisce gli UDG 

Dati per gli UDG 
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Capitolo 8 


PEEK e ROKE 

Sono senza dubbio due tra i comandi piu' usati dello Spectrum. 
Per capire bene le funzioni che essi svolgono, e' necessario 
conoscere l' hardware della macchina e il suo funzionamento. 
Come già' saprete, ogni computer possiede una memoria la quale 
si divide in due tipi ben distinti. La ROM (abbreviazione che 
sta per Read Only Memory = memoria a sola lettura ) contiene le 
informazioni necessarie al funzionamento della CPU (Central 
Processing Unit « Unita' centrale di processo o piu' 
semplicemente microprocessore) le quali rimangono memorizzate 
anche quando l' apparecchio viene spento. Il contenuto della 
ROM non può' venire alterato in alcun modo. 

Il secondo tipo di memoria si chiama RAM <Random Access Memory 
* Memoria ad accesso casuale) e memorizza i dati provenienti 
dalla CPU. Le informazioni e i dati in gioco, sono tutto quanto 
presente in un programma e visualizzato sullo schermo a partire 
dalla grafica definita dall' utente (UDO per arrivare alle 
variabili del sistema. RI contrario di quanto accade per la 
ROM, il conenuto della RRM va perso quando si toglie corrente e 
può' venir alterato in qualsiasi momento. 

Vediamo ora in quale modo viene memorizzata una informazione. 
Immaginatevi la memoria suddivisa in compartimenti ognuno dei 
quali in grado di contenere u.n numero.; sia la quantità' dei 
primi che quella dei secondi dipende dal tipo di computer. Lo 
Spectrum dispone di 65536 (da 0 a 65535) compartimenti, 
chiamati bytes capaci ognuno di memorizzare un numero compreso 
entro la gamma 0-255. Per comodità' i bytes vengono raggrumati 
a mille per volta e ognuno di tali gruppi e' conosciuto col 
nome di "Kilobyte", abbreviato con "K". Per essere piu' 
precisi, un K equivale a 1024 bytes. 

Il comando PEEK vi permette di accedere a questi bytes con la 
forma "PEEK n" dove "n" e' appunto il byte da esaminare. 

Il comando POKE, invece, vi abilita addirittura a cambiare il 
contenuto per mezzo dello statement "POKE n,m" in cui "n" e' il 
byte, o meglio l' indirizzo, presso il quale effettuare la 
variazione e "m" il valore del nuovo dato compreso tra 0 e 255. 
POKE viene quindi usato per memorizzare nuovi dati, in una area 
di memoria riservata e PEEK per andarli a ripescare. 

Vi sono diversi modi per riservare la memoria onde 

proteggere i dati da alterazioni accidentali. Uno di questi 
sistemi prevede 1' uso dello statement di REM. 

Se la prima linea e' 

1 REM BAR 

La memoria viene prenotata sotto il segno delle A. Provate a 
battere questa linea facendola seguire dal comando diretto POKE 
23760,127 e vedrete che, listando nuovamente la linea, al posto 
della prima A troverete il simbolo di copyright corrispendente 


93 




appunto al carattere 127. Provate con altri valori. L' 
indirizzo 23760 si riferisce appunto al primo carattere dopo il 
REM presente alla linea 1. Per pochi dati potete quindi 
utilizzare lo statement di REM dotandolo di tanti caratteri 
quanti sono i dati per poi POKare questi ultimi nei vari 
indirizzi messi a disposizione dallo statement stesso. 

Una seconda via per proteggere i dati la mette a. disposizione 
CLERR il. quale li preserva anche dal comando NEW che ha il 
potere di azzerare tutto quanto. 

Di solito i caratteri a disposizione dell' utente., che sono in 
tutto 21., occupano gli ultimi 163 bytes della memoria in quanto 
ogni carattere ne impiega 8. Nello Spectrum da 16 K, essi 
occupano gli indirizzi da 32600 a 32767. in quello da 48 K gli 
indirizzi impegnati partono da 65368 e arrivano fino a 65535. 
Lo statement "CLERR n" predispone una variabile di sistema <che 
vedremo piu' avanti> all' indirizzo "n". 

Se "n" e' piu' alto di 32600 nello Spectrum da. 16 K si perde un 
carattere-user, predisponendolo piu' basso, si prenota una zona 
di memoria da n+1 a 32599. Rnalogamente accade nella versione 
da. 48 K con i relativi indirizzi. 

Con POKE si predispongono le variabili di sistema le quali 
vengono considerate dalla CPU per valutare quanto sta 
succedendo e prendere determinate decisioni. Usando 
correttamente questa, funzione e' possibile creare un gran 
numero di effetti speciali. Pokando. ad esempio. 23609 col 
numero 100 potete generare, alla pressione di qualsiasi tasto, 
un beep piu' consistente del normale che può' risultare utile 
nelle operazioni di INPUT dei games. POKando un numero maggiore 
di 1 all' indirizzo 23692. il computer non vi chiederà' piu' lo 
"scroil?" ogni 22 linee di programma. Per cambiare il colore 
delle scritte relative ai messaggi sulla parte bassa dello 
schermo, non dovrete far altro che eseguire u.n POKE 23624 
seguito da un numero a caso. POKE 23624 altera quindi gli 
RTTRibuti e i colori delle scritte o degli oggetti presenti 
nella parte alta dello schermo. Dando POKE 23659.1:CLS 
riempirete lo schermo di strisce la cui ampiezza dipende dal 
valore POKato in 23693. 

Gli indirizzi 23677 e 23678 riguardano la funzione DRflW la 
quale può' tracciare linee in tutte le direzioni partendo dall' 
ultimo punto stabilito da PLOT. Nell' esempio che segue. la 
posizione di plot orizzontale non e' 20 bensì' 120 <108+20>. 
cosi' come quella verticale non e' 60 ma 140 (. 80+60 >. 


10 PLOT 100.80 
20 DRRW 20.60 

Perche' una eventuale linea 30 possa iniziare a tracciare dai 
valori 0.0 e' necessario l' intervento di alcuni calcoli. Per 
mezzo delle variabili di sistema 23677 e 23678 potete simulare 
un DRflW assoluto. La linea 20 può' essere riscritta nel modo 
che segue : 

20 DRRW 120-PEEK 23677.140-PEEK 23678 
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e se prima avreste dovuto battere 


30 DRflW -1.20,-140 

ora dovete inserire 

30 DRflW 0-PEEK 2367?,0-PEEK 2367S 

Lo Spectrum può' disporre del tempo in modo assai ben definito 
grazie alle tre variabili di sistema 23674., 23673 e 23672. La 
Piu' bassa delle tre viene incrementata ogni 5@esimo di secondo 
fino a che non raggiunge 255 dopodiché' torna a 0 facendo 
partire il conteggio nell' indirizzo 23673 il quale, una volta 
raggiunto 255 abilita il terzo che, a sua volta raggiunge 
255, resettandosi e facendo ripartire tutto da capo. 

Il calcolo del tempo (espresso in secondi> e' assai semplice : 

LETsecs=C 65536*PEEK 236?4+256*PE£K 23673+PEEK 23672>150 

Questa funzione e' di grande aiuto in games tipo auto da corsa 
e in qualsiasi caso in cui la gara debba essere portata a 
termine nel piu' breve tempo possibile. Rlcune volte può' 
succedere che il calcolo dei secondi dia un risultato 
sbagliato. Nel caso in cui, ad esempio, la locazione 23673 
contenga 0 in conseguenza del fatto che lo 23672 abbia 
raggiunto 255 e poi si sia a sua volta azzerata, il computer 
può' valutare contemporaneamente i valori 0 delle due variabili 
e di conseguenza considerare un tempo doppio di quello reale 
falsando i risultati. Per ovviare a tale fenomeno, e' 
necessario POKare a 0 ognuno degli indirizzi. 

Oltre ai 22 caratterino Spectrum ne può' definire altri 96. Il 
segreto sta' nel bit del POKE il quale, se impiegato negli 
indirizzi 23606 e 23607, vi permette di cambiare il punto di 
partenza del set dei caratteri presente da CHR* 32 <. spazio!) a 

CHR* 127 (marchio di copyright>. 

Ecco come dovete fare : 


1> Disegnate i nuovi caratteri da mettere al posto dei vecchi e 
calcolatene i dati. 

2> Decidete i caratteri del set originale da ridefinire e 
prendete nota di quelli che dovranno ridefinirli. Di solito 
i caratteri da ridefinire <UDG“User-defined graphic> vengono 
scelti tra i primi del set originale. Se volete definire 
lettere e numeri tipo "era spaziale" e' bene segnarsi sempre 
l' accoppiamento tra i vecchi numeri con i nuovi e tra le 
vecchie lettere con le nuove. Questo perche', mentre 
state scrivendo lo statement di PRINT vi ricordate le 
equivalenze, ma, una vola fatto girare il programma, i 
caratteri ordinari lasciano il posto a quelli ridefiniti 
scomparendo dal contesto delle linee. 
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3> Prenotate la memoria usando CLEfiR n <come descritto poco 
fa' > o come comando diretto o inserendolo nel programma 
stesso. Il numero di bytes da riservare deve corrispondere a 
quello degli UDG compreso il primo e l' ultimo del set. Il 
numero va naturalmente moltiplicato per 8 essendo ogni 
carattere formato da altrettanti numeri. La cifra "n" viene 
ricavata sottraendo il numero cosi' trovato da 32599 per lo 
Spectrum a 16 K e da 65367 per quello da 48 K. 

4> Predisponete gli indirizzi 23600 e 23607 in modo che il 
primo UDG risulti a "n"+l. Per far ciò' procedete come 
segue : 


al Trovate "n"+l 

b > Contate quanti caratteri ci sono prima di quello da 
ridefinire; esempio, se il primo carattere da ridefinire 
e' CHRS 38, avrete 38-36=6 caratteri. 
c> Moltiplicate questa cifra per 8. 

d ) Supponiamo di chiamare quanto ottenuto,"char", per cui i 
valori da POKare sono dati da 
POKE 23606. char-256*I NT < char ''256 > 

POKE 23607, INT < char.-'256 > 


5> Qualsiasi UDG, può' cambiare anche caratteri del set 
alternativi, come potete vedere dal. programma che segue il 
quale ridefinisce con un carattere grafico. 


1 REM P. 

5 CLEflR 

" n ‘ • 

3 L. ET ni 
4. L ET to' 

55 L. ET n 

6 LET C I 

• • » " - 3 a 

7 LET to' 
before fin 

© LET CI 
r s t - a © © 


r _ lo _ s> p 
3 ci 55 Q ci : 

ni c h a r s 
t. e s r e s 

: 3 a 6 a 9 - b 
a r be fo 

ite be fo 
t *0 

•a r * ri ■+■ 1 - 


r ( f> ( da 1SK 
REM U a l. o re da. 


C| 

1.ET 

c h r i n 

NT ( 

c h a r , 

■■■256) 

10 

LET 

c h r i n 

a s © :• 


se 

F O R 

i « ri •+• 1 


PERI 


e r v e « n u rr* char *. 

yt.es r ese r v e 
re fi rat «code 

r e f i r s t s c h a r 

by te to' e f o r e fi 

©06 se h ar-256*I 

607*1MT (Cha r 

n +by t. e. s rese r y 


30 

R 

DRTR 

0 

£2 

55,3© 

, 3© 

,24." 

©ó 

POKE 


36 0© . 

c h r 

i n 

©0 

P O K E 

O 

|71 

3©0 7 

c h r 

i n 

70 

PR INT 


RT 1 i 

, 1S ; 


80 

p O K E 

1» 

3©0© . 

0 


•30 

p o k e: 

£2 

3607 

©0 
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Differenze per lo Spectrum a 48 K 
2 CLEftR 65380: REM valore di "n" 
5 LET rì«65367-r i serva byt-es 


Esistono diverse variabili di sistema che non vengono usate 
normalmente come le altre ma che restano libere a disposizione. 
I loro indirizzi sono 23681,. 23728 e 23729. 

Molti computer posizionano gli oggetti sullo schermo per mezzo 
di PEEK e POKE, con lo Spectrum ciò-' non e' possibile. Se 
volete una dimostrazione fate girare il programma che segue e 
osservate gli strani risultati 


» 1 


10 
b i 
£0 
30 
4.0 


Ih 

s i 

t. h 


50 

e-0 

70 

10 

bi 

2 © 

30 

40 


50 
5© 
7‘ 0 


p; em P e r d i rn o s t r a r e t ' :i. rn p o s 

li la* di p o lare i o & c h e r rn a 

L. ET s aree n = 16 3 3 4 
LET i. e n g t h =24 *32*0 
F OR i «aereen To sc r een + ieng 

POKE i ,i 35 
NEXT i 
BEEP 1 4 10 

REM Per di rn o & t r a r e i ' i rn p o & 

Li ta ' di p o K a r e L o s che r rri o 

lET & c reensl63s4 
LET i. e n g t h =24*32*0 
F OR i ascreen T O se r e. e n ■+• L e n g 

POKE i .'35 
NEXT i 
BEEP 1 4 10 


Lo Spectrum risolve la cosa usando PRINT RT al posto di POKE e 
RTTRj POINT , SCREEN* al posto di PEEK. 

Il nostro prossimo programma.. di nome "Circuit",, fa un esteso 
uso di PEEK e POKE e vi permette di guidare la vostra auto 
attraverso un intricato circuito sterzando nelle quattro 
direzioni cardinali e nelle quattro diagonoli. 

RI posto dell' auto si era pensato di disegnare un carro 
armato,, ma i veloci cambi di direzione non si addicevano a tale 
mezzo. I tasti sono codificati per mezzo della funzione IN onde 
poterne azionare due contemporaneamente. L' auto dispone di 
quattro marce ed,, alla partenza,, e' innestata naturalmente la 
prima come potete constatare sul lato sinistro dello schermo. 
Se volete ingranare marce superiori <e quindi accelerare> 
premete "Q", per scalare "fi". La guida e' molto realistica., col 
tasto "P" ruoterete in senso orario., se ad esempio siete 
diretti verso nord volterete verso nord-est oppure se siete 
orientati verso ovest girerete ver so nord—ovest ecc. . . col 
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tasto "0" la ruotarione avverrà' in senso antiorario. Il game 
prevede il conteggio del tempo che viene pero' visualizzato 
solamente dopo aver concluso il giro oppure dopo esservi 
schiantati da qualche parte., per non rallentare eccessivamente 
lo svolgimento della gara, fl vostra disposizione avete tre auto 
con le quali dovrete cercare di completare il tracciato.: ogni 
volta che picchierete, dovrete ripartire daccapo. Il numero 
delle auto a vostra disposizione lo trovate nell' angolo in 
basso a sinistra. 

La caratteristica piu' importante del gioco, e' sicuramente il 
set di caratteri definiti, pensate che, oltre agli ottanta UDG 
(di cui dieci sono numeri> sono state ridefinite, come visto 
sopra, anche diverse lettere comprese tra "a" e "z". Poiché' il 
tutto occupa diverso spazio in memoria, abbiamo suddiviso il 
programma in due tronconi per permettere il caricamento del 
secondo blocco (il gioco vero e proprio) anche sugli Spectrum 
da 16 K. 

La prima parte predispone il set dei nuovi caratteri, definisce 
gli UDG e inoltre carica il secondo blocco. Se avete uno 
Spectrum da 4S‘ K, potete congiungere assieme le due parti. 

Molto interessante e' l' effetto di PRINT #0 ;"." presente 

alle linee 8030 e 8069, infatti tale funzione abilita alla 
scrittura anche nelle due linee piu' basse dello schermo 
riservate normalmente ai commenti e ai messaggi di errore. 
Quanto scritto da PRINT 0, viene cancellato dagli INPUT alle 
linee 8020 e 8040 perche' non vizi il contenuto del display al 
sopraggiungere dello scrolling. Ora che conoscete alcuni 
segreti del programma, battetene la. prima, parte e registratela 
sul nastro con :SflVE "Circuit" LINE 10. Dopo aver eseguito il 
VERIFY, battete anche la seconda parte e registratela con 
SftVE "C" LINE 10. Verificate quindi anche quest' ultima. 


8 9 '9 8 R E M 


•**!$ 'rs? 'ssl 

9000 
9 0 1 0 
STRRT 
9020 
TEND I 
9 0 3 0 
9 0 4- 0 
9 0 g 0 
9080 
3) + n . 
9070 
LflY" 
RE " 
90©0 " 

9 0 90 
9 X 9 9 

9200 
,102 
9 2 10 


CLERI R 
PR I NT 
ORE” 
PR INT 


32399: RESTORE 9200 


PT 


"FÉRMA IL REGI 


POR i = 
PER D a 
F O R i 
READ 
a : N E 
C L. 3 : 

AT X1 


AT 11,10.; FLASH l; "AT 

=s 3 2 4- 0 0 T O 3 259 9 
a : POKE i , a : NEVI i 

al TO 13: POR n SS0 TO •? 
3: POKE USR CHR$ «i+14. 

XT n: NEXT i 
PRINT AT 9,7;"PREMI P 
, 5 ; "SUL. TUO REGISTRATO 


PRINT AT 13,0.; •' (Batti I.ORO 

L e t t era a nd 


L. O h D 
REM D 


C " 

a t a f o r 

& '-J rii bO LS : 

DATA 0,24- , 3© , 3© , 12© , 102,102 

DATA 0,124- . ©8 , ©8 ,12© , '7 0 , '70 , 
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0 .. 124- .. 64. ., 64 ,, 96 ., 96 9© , 1. 

0 ., 126 ., 66 66 98 .. 9S ., 9S , 1 

0,126,64- , 64,120 ,, 96 , -9© .. 
25© , 129 ., 189 , IBS , 16S , 16 


0 , 

126 

, 64- , ©4- 

, 9© 

,102,98, 

0 

©8 , 

6© ©6 , 

x a 4- 

, 7© , 7© , 7 

0 

1© , 

1© , 1© , 

fc! 4- , 

24,24,2 4 

a04., a 

04,61., 

© 1 , 

204,204, 

0 

0 0 

,0,0,0 

, 0 , 

0 

0 

■**5j O 
a. ,i 

128 

52,32 , 

4.8 , 

48,48,62 

0, 

, 6© , 8© 

, 8è 

, 8© , 8© , 8 

0 , 

124 

, 7© , 7© 

, 7© 

,7© , 7©,7 

0 , 

i a © 

, ©•© , 6© 

, 98 

,98,90,1 

0 , 

i. a 4- 

, ©8,68 

,124,64,64, 

0 , 

0,0 

,0,0,0 

,68,68 

, 0 , 

0 

0 .. 

124- 

,12©,70,70, 

0 , 

134. 

, ©4- , ©4 

, 12 

4 , 1 lisi , X , 

0 , 

i a © 

, 16,1© 

, 2 4 

,24,24,2 

0 , 

©6 

©8 , ©8 , 

68, 

©8 , ©8 , 12 

0 , 

ìa© 

, 6© , a , 

30 , 

16,0,16 
8© , 88 , 12 

0 

s© 

86 , 8© , 

8© , 


DPTP 

0 , 

2 4- 

,24,0,0 

, 2 4 

i 2 4 

, 0 

DPTP 

0 , 

6 8 

, ©8 , li=:4 

, 1© 

. i© ; 

, 1© 

REM D 

a t 

a 

f o r " c a 

r " • 



DPTP 

8 , 

*7 3 

—» q 

,» » w .« s? w j 

127 . 

, 93 . 

, 6© 


DPTP 

33 , 

© © i 

1©S 

, ©0 

, ©0 , 

29 , 

2 

,4 

DPTP 

2©4 

, i© 

, 8© 

, ©3 

, SS , 

1© , 

2 

©4 

DPTP 

4* » est 

,29 

, 6© 

, ©© 

,188 

, ©6 


3 3 

DPTP 

!~ji , 

©5 , 

93 , 

127 

, 9 3 , 

» i 

■4» 

i 

6 

DPTP 

3 2 

©i 4 , - 

184 

, ©0 

, ©0 , 

©1 , 

© 

© , 

DPTP 

127 

, © , 

28 , 

252 

, 28 , 

© , 1 

2 

7 , 

DPTP 

132 

, ©6 

, 61 

6 0 

, ©0 , 

184 


©4 


R E M Data f o r N u rn b e r s. : 

DfiTP 0 ,, 60,66 66 98,96,9© , ©0 

DPTP 0,8,8,8,12,12, la , 1. S 
DPTP 0,1.24,2,2 ., 80 ., 96,9© , ©2 
DPTP 0 , 124 , £ , 9 , ©0,0,0,126 
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964.0 

4 

96S0 
9660 
3 6 

9670 

9660 


9690 
9 9 9 9 
RET 


D RT R 

D RT R 
ORTR 

DRTR 
D RT R 
D RT R 
POKE 


0 

.» 6* 4 ) 

9 

6 .. 

1 

00 ,100, 

1 

3 

6 

4 

.1 

0 

, 63 , 

6 

3 .. 

6 

4,60 , 

6 , 

6 


1 

36 


0 

63 , 

6 

4 .. 

6 

4,134 

, 7 

0 

.• 

7 

0 , 

1 

0 

, 130 


6 , 

© 

.13.1 

fi. ,• 

1 

3 


1 iSl 


0 

, 60 , 

é 

6 , 

6 > 

6 .6© , 

70 

.» 

7 

6 

0 

0 

0 

, 60 , 

6 

6 , 

6 

6,60. 

6 

0 


136 


cri 

3606 


0 : 


POKE 

33 

0 

0 

7 

a 6 

0 



ors i -il" ;<s? 
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Blal 


a 

rasata 
0000 0 
samara 
ararara 
rama 
tarara 

0 Q 0 

a 
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Pmmirate la copia dello schermo., a colori poi e' ancora meglio. 


Ed ora vediamo la seconda parte del programma che crea il game 
vero e proprio. 

Elenco delle variabili 


h 

Secondi impiegati e record 


b$< 2, 5 >b$< 1 > 

Contiene i caratteri del circuito in corso 
contiene gli spazi del circuito 

ri 

Si alterna tra i valori 0 e 

1 durante il 


del circuito da parte dell' 

array b*<.> 

c 

Numero delle auto rimaste 


ro 

Minuti 


s 

Secondi 


X 

Coordinata verticale dell' 

auto 

y 

Coordinata orizzontale dell 

' auto 


b* < 2 > 
disegno 


100 






dr 

g 

al 

dt 

mv 

a, 

b 


t 

zi 

LOOP, 

ALTER, 

NORM, 

TIME, 

START, 

NEXT CAR, 

END, 

CRASH, 

FINISH, 

BYE 


Direzione dell' auto da 0 a. 7. ( 0—su, 2—destra. 

ecc... > 

Marcia. Da 1 (più' lenta!) a. 4 (piu' veloce) 

Legge la tastiera cori IN per vedere se e' stato 
premuto il tasto Q per l' accelerazione 
Come il precedente mia. stavolta, riferito al tasto A 
per la decelerazione 

Verifica se sia stato battuto uno dei tasti per 
spostare l' auto <0 oppure P) 

Coordinate che la subroutine usa per disegnare 
qualsiasi cosa. Tale subroutine e' richiamata, da. 
due diversi posti, "a" e "b" vengono assegnati 
prima di chiamare la subroutine in modo che 
vengano PRINTate le coordinate esatte 
Tempo <in secondi) impiegato per completare il 
circuito. Viene comparato con "h" 

Usata come stringa, d' ingresso 


Sono tutti "tokens" per la partenza, delle 
subroutines : ALTER e' la subroutine usata per 
inserire il set alternativo di caratteri; NORM 
(normale) e' per cambiare di nuovo; TIME presenta 
tempo; START iniziai izza la partenza di una. nuova 
gara; NEXT CAR iniziai izza, una nuova, auto; END e' 
il punto in cui finisce il programma quando l' auto 
urta contro qualcosa; CRASH e' per quando l' auto 
urta contro il circuito e FINISH e' per quando l' 
auto raggiunge la. griglia di partenza. 


Nel listing sono presenti degli user-graphic alle linee 5300 
(quattro I) e 5310 (lettera C). 


C i rea i. io Parie 2. > 


10 60 TO 500© ; REM :i. ri i t i ri «. t. f 

5 0 RE f-1 C o n i. o Spect r u rn issue 2 
51 REM v & riare 255 con 121, 
__52 REM £54 cori 12© e 253 cori 1 

10 0 L.ET a I. = IN 64510 -255 : L.ET d L 

* X N S 5 0 a 2 - 2 5 5 : L. E T rr. V « X N 5 '? 3 4- 2 
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12 0 LET d r »d r + ( m v =254» - ( rn v.‘ «a553 ) 

-(© RND d r = 7 AMD rn V *254 ) + C © AND 

dr =0 R N d rn v =£53 ) 

14-0 LET X = X - ( d r ss 0 OR desi OR dr 
= 7 ) + ( d r > a RND d r < © ) : LET u = M - ( d r 

> 4. RND d I" •=: * 7 ) + ( d r > 0 RND d r < 4 ) 

160 PRINT AT X.M;CMR* (144+dr) 
1©0 IF aL OR di'THEN PLOT 4+d*© 
,56: DRRI.-J 0,5: LET a *g - < a l RND Q 

<4) +(dl RND 9 > 1 ! : PLOT 4+•=!«©. 56: 
D R R U 0.5 

200 FOR i=l TO © — ci : BEEP . 02 , RN 
r> 2 0—4.0- NE'x'T i 

220 PRINT AT x . M ;CHR* (144+dr) 
24-0 GO TO LOOP + ( 400 RND ATTR (x 
, M :i < > 5 7 ) 

S©0 GO TO END 

yQ"? 

99 è REm fìl tenative : 

C| C| C| 

1000 POKE £3606,136: POKE 23607, 

123 : RETURN 

1497 

14-2 0 R E r-l N o r rn a L : 

149Q 

1500 POKE 2 3 6 0 6,0 : POKE 23 607 , ©0 
RETURN 
192 7 

1999 

2000 GO SUB ALTER 

20 10 L ET S*s("0" RND rn < IO) +STR $ 
rn + ( ‘' 0 " RND s < 10) +STR $ s 
2 0 20 PRINT RT a,b; I N K 3j CHR* (C 
ODE % % ( 1) +104.) ; CMR* (CODE » «fi (2) + 
104) 

2030 PRINT RT a,b+3;CHR$ (CODE S 
$ (3) +104) j CHR$ (CODE S$ (4) +104) 

2 0 4 0 G O S U B N O R M 
2050 RETURN 
4 9 9 7 


4 9 9 ì 


R E M 


4999 

5 00 0 I.ET Fi =15 3 3 

5010 L ET L- O O P * 10 0 

502 0 L. ET R LT E R = 10 0 0 : L ET N O R M = 15 

00 

503 0 L. ET T IM E =20 00 

504 0 LET STRRT =5300 : LET NEXT OR 

R = 5 4 0 0 

5050 LET NEU GRME = 90©0 : LET ©VE = 


9 9 © 0 

5060 LET END=7000 

5070 LET CRASH=7S00: LET FINISH* 

60 00 

5 100 POKE 2369-3,33 • POKE 2 3 659 , 1 
CLS : INPUT - 
5110 GO SUB RLTER 

5120 DIM b $ (2,5) : LET b* (1) =CHR$ 

1 © + C H R iti 2 + C HP$ 17 + C HRS © + C M R * 1 


102 


02: LET b* (2) =CHR* 16+CHR* 1+CHR 

È 17+CHRÌ 7+C:HR$ 107 

5130 BR1GHT 0: OUER 0: FI.RSH 0: 

INUERSE 0 : BORDER 5 : PAPER 7 : IN 
K 1 

5140 PRINT RT 0,0; : RESTORE 65500 

LET n=sl 

6160 POR i=1 TO 189: READ a: LET 

ri SS n -n + NOT ri: FOR V ~ 1 TO a: PRIN 

T b$ (ri+1) ; : NEXT V : NEXT i 
6 160 PRINT RT 19,10 ; INK 0 ; " .i j " ; 

RT 20,10; "jj " j RT 1,2; INK 3 ; ” bes 
t K. v v x v v 1 ' flt 6,6; "ti rn e x ' 1 ; RT 1,14..; 

IN K 1.; ’ • s p & c t. r u m fc. spee d w a y " RT 13 

, 1 ; "pear" 

6170 FOR issi TO 4-: PLOT 4 + 1*6,62 

: NEXT i: INK 8 

6299 REM START IN12 

6300 GO SUB RLTER: PRINT RT 53,©.; 

INK 3;"00xQO" 

63 10 LET C SS 3 : FOR i*l TO C : PRIN 

T RT IS + i , 1 ; ‘: NEXT i : PLOT 6. 

©3: DRRU 31,0 

5320 PRINT «0.; INK 2: PAPER 6 : " t 

f f f f f f f s P e c t r u rii K s p e e d w a y f f f f f f f" 

5330 LET rii s=© : LET s«0 
6399 REM NEXT CRR INIT: 

54 00 LET X =20 : LET ysl0: 

6 ■ LET q .« 1 

5410 PLOT 12,66: DRRU 0,5 
14 20 OUER 1 : GO SUB NORM 


L ET d r 


5 4 30 P O K E 2 36 7 2 
BEEP 1.0 
5490 GO TO LOOP 
6499 REM < 

©500 DRTR 
,4,7,12 
6,5 10 DRTR 
2,5,2,©, 3 
©620 Dfltfl 

1.3.1.2.2 
©630 DRTR 

4.7.2.1.2 
6540 ORTR 
4,3,1 


0 


POK.E 93673,0 ■ 


©670 

•‘Sj -“Si 


e , e , 


■-s 


1 


^ I llw 

D Rt R 

s 4,2 

•RTR 
.*-*1 
tìS. .. 


3 , 5 j è*! i c! 

8,34 

©997 

© 9 9 © R E M 

'Hill '^4 

7 0 0 0 PI... OT 


I a t 

•a 

for sersen: 



34 


10,2,17,36,11, 

1,5 

•"Sj 

1 , 

£ 

, 2,55 , 1,2,6,4.7 

. 2 . 

1 , 

■£> , 

5 

, 1 ., 2 ., 1 



ite! 

•**“, 

p; ( P gì _ ter, f ;™i c, p' 

, 1 , 

. 

3 . 

4 

£> É _ di; 



i, 

ire! 

,1,2,1,3.1.2,3 

• ;£ .• 

4 , 

i, 

3 

, 1 , 3,2 , 2,4 



6 , 


,i ite! .i 3» .i ite! .i ite! ,i ite! ,i ite! .• ite! 

.• o .< 

2 , 

£2 .» 

3 

,2,1,3,1,3,2,2 

•ss* 

i O i 

4 , 

3 i 


,1 CU, 



££ .• 

£? 

,i •-!' .i 4 .» *.J3 ,i ite! .i i!L * *..5 .i .1.. 

, 3 , 

i“? .1 

o 

4- , 

2 

•te* *’i a •""i o ,~"i •*—. 

.i O .i ..L .i C« « 2 ! .i --u te. .. cte 

, 2 ., 

3 . 

4 


* 



1 . 

3 

,2,3,6,3.9,4,2 

.. 3 .. 

•**3» ^ 

9 





3 , 

•“3j 

. 3 . 4 . 2 . £> . I . 2 . 3 

. 7 , 

4 , 



4 + y * 3,5 6 


R R U 0 
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7010 OUER 0: LET SaS+INT ( (PEEK 
S36?3*aS6+PEEK 33672:' /50) 

7020 LET fiì ss rii +1 NT (S/60) : LET iss 
-m *60 : LET a =8: LET b«6: GO SUB 
TIME 

7 030 GO T O CRASH + (FINIS H-CR flSH A 
ND ATTR !X,q)=S6) 

74-97 

7 4-98 REM 
74-92 

7600 POR i*0 TO £5: LET dr«dr+l- 
(8 AND dr«7): PRINT RT X.y;CHRI 
(H4+dr) : BEEP .02, i : NEXT i 
76 10 GO SUB ALTER : PRINT RT X.y; 
b «Mi:' : GO SUB NORM 

7620 PRINT RT 16 + C.lI" " : LET C = 
C - 1 

7630 IF C >0 THEN GO TO NEXT CRR 
7 64 0 GO T O N E U ORME 
7* cj ci '? 

7998 REM 1 


...i j b r a v o 
PAUSE 2 


LET a = 
G O S U B 


7 9 y y 

8000 PRINT RT X , y CMR $ < 14 4 4-d r ) • 

LET t ~©0 rn + s 
80 10 GO SUB RL..TER 
8020 INPUT - 

8030 PR INT RT 1.0 ; «0 i " J ..i ..i j fo r a V O 

c e l " h a i f a t t a .j .i .i .i ,'i .i " : PAUSE 2 

00 

8040 INPUT 

8060 IF t <h THEN LET Hat. : LET a = 
1: LET b a* 7 : GO SUB TIME : GO SUB 

ALTER : PRINT RT 1,0.1 tt 0 ; " e hai f 
a t t. o i 1. rri ìg lì o r tempo ' ' : G O T O 

8070 

8060 PRINT RT 1,0.; #0; "but. you di 

d n t. g e t. t he b e $ t t. i m ek. " 

80 7 0 PR1J S E 2©0 

808 0 PRINT RT X . y ; " i " 

8090 G O S U B N O P M 
© 0 9 7 

8098 REM 
©09 9 ‘ 

9000 INPUT "fino thè r game •? (Y/N) 

” ; l„ INE Z $ 

90 10 IF i:z$ + " ■Li (1) a"n" THEN GO 

TO BYE 

90 2 0 INPUT "Press E NTE R t O Piay 
' ' ; L, IN E z $ 

9030 GO TO START 

9980 BORDER 1: PRPER 1: INK 7: C 


999© PRINT RT 10,13; FLASH 1 


K & .; P fi P E R 2 .; ' ' BY EEE" 
9999 STOP 


104 


Note 


10 

100 

120 

140 

160 

180 

200 

220 

240 

1000 

1500 

2810 

2030-2040 

5000 

5010-3070 

5100 

5130 

3150-5170 

5300 

5310 

5320 

5430 

6300-6590 

7000 

7010-7020 

7030 

7500 

7310 

7320-7340 

8000 

8030 

8050 

8080 

9000 

9020 

9980-9999 


I n 1 z i a 11 zzaz i one 
Lesse la tastiere. 

Cambia la direzione 
Cambia le coordinate 
Disesna l' auto 
Cambia marcia 
Suono 

Cancella l' auto 

Verifica se l' auto ha urtato qualcosa 
Set di caratteri alternativo 
Set di caratteri normale 

II tempo viene inserito in una strinse. 

Scrive il tempo 

flislior tempo iniziaiizzato 

"Tokens" per le subroutines iniziaiizzate 

Disesna le strisce 

Colori 

Disesna lo schermo 
Scrive il tempo 
fiuto rimaste 

Scrive sulla 23esima risa 
Azzera i contatori del tempo 

Dati usati alla linea 5156 per scrivere sullo 
schermo 

Cancella il marker delle marce 
Calcola il tempo e lo presenta 
Salta a "CRASH" o a "FINISH" 

Ruota l' auto 
Riposiziona il circuito 

Diminuisce il numero delle auto e salta di 

consesuenza 

Disesna l' auto 

Consratulezioni 

Inserisce il nuovo tempo nella variabile "best 
ti me" 

Riposiziona la srislia 
Verifica per un' altra sara 
Tutto pronto 
fillesorie 


Sesuono due ottimi prosrammi sviluppati orisinalmente per tutt' 
altro. L' idea, orisinaie era di usare una racchetta o una 
superficie scorrevole per catturare i blocchi che piovono dal 
cielo. Osni blocco può' valere da uno o due punti. I blocchi 
non catturati piombano al suolo accatastandosi fino a formare 
un muro che, se rassiunse l' altezza della racchetta, fa finire 
la sara. 

Il primo dei due sames basati su tale principio e' stato 
chiamato "Chomper". 

Dovete mansiare il cibo che cade dal cielo composto da pere, 
salsicce, birra, polli arrosto e hamburser. Cadono anche dei 
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facili che dovrete recuperare per poter sparare ai mostri che 
crescono mangiando quanto non siete riusciti ad acchiapare. Le 
istruzioni sono contenute nel programma stesso. Le coordinate 
dei tre oggetti che cadono contemporaneamente <siano questi 
cibb o armi) sono memorizzate in array per poterli muovere 
tramite loop. 

Graphic R : linee 1@00 e 3000 (doppio> 

Graphic B : linea 4000 

Graphic J e K: linee 2010.4040 e 5410 (primo set della linea) 
Graphic L e M: linea 2000 (primo set) 

Graphic N e 0: Linea 2000 (secondo set> e 5410 (secondo set) 

Graphic P : linea 7010 (primo) 

Graphic Q linea 7010 (secondo) 

Graphic R linee 7020 e 7050 

Graphic S linea 7030 


Eleneo delle variabi!i 


i Variabile di controllo dei loop per far cadere gli 

oggetti dal cielo 

a(. ) Array per le coordinate verticali degli oggetti 

b(. ) Array per le coordinate orizzontali degli oggetti 

t2 Altezza dell’’ ultimo oggetto mangiato dal mostro. 



Usato per vedere se 
altezza del "Chomper 

il 

. 

mostro 

ha raggiunto 

l' 

c( . ) 

Memorizza 

caduta 

il 

colore 

di 

PAPER di 

ogni 

oggetto 

in 

d( . > 

Memorizza 
caduta 

il 

colore 

di 

INK di 

ogni 

oggetto 

in 

c*( . ) 

Memorizza 
pera ) 

la 

forma 

dell' oggetto (ad 

esempio 

una 

m 

Usato per 

9 . 1 tornare 

il 

movimento 

della bocca 

d* 


"Chomper" 

a* Per leggere la tastiera 

P Coordinata orizzontale del giocatore 

gun Numero dei fucili recuperati 

rnd Usata per selezionare la specie di cibo da far 

cadere 

n Controllo per il loop di lettura dei colori del 

cibo 

tl Usata per ingrassare il mostro quando questo ha 

mangiato 

z Variabile di controllo per la cancellazione dei 

mostri quando siano stati colpiti 
s Punti 

i, 
n, 

z Variabili di controllo per gli altri loop 
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RND 


10 GO TO 5000 
2© FOR i«1 TO 3 

3 0 XF a (i) >b£ THEW PRIMI" RT a l 
i :i b li).;" 

4-0 LET a ( i ) «a li ) +1 

SO XF RTTR fati),b(i))=31 THEN 
GO SUB 3000: GO SUB 1000: BEEP 

. 0R i £0 

60 XF RTTR tati) , b l i ) ) «20 THEN 
GO SUB 2000: XF 12=18 THEN GO T 
O 7000 : REM |im|iill 111 I IjjÉI Mj|l| lTJFii.ìg.1 

65 XF a ( i ) «22 THEN GO SUB 1000 

70 XF a Ci) >«2 THEN PRINT PAPER 

c C i ) .; XMK d li) RT a li) .. b c i ) c: $ < 
i ) 

©0 MEXT i 

90 LET rii «rn + C MOT rii ) — rn 

100 LET a $ « X M K E V$ : XF a * = 1 ‘ 5 " OR 

a $«•'©• ' T M E N P R X MT RT 15 ,p ; " ' 1 : 

LET p -P -i- C a $ = ■•©" AND P < 3 1 ) - C a * « " 5 

•• RND p) 

110 XF a**"0" RND d uri >0 THEN GO 

SUB 4-000 : REM STailsIjJBil 

120 PRINT INK 7;HI 15 , p ; CHR $ Il 

61+ rn ) 

300 GO TO 20 

©00 STOP __ 

999 P;:E M BlWaiKiaPwWilES TIMMfaBiBngreil 

1000 XP" RND > . 9 ^HEKI LET c * Ci ) s"fl 
" : LET c C i ) ss0 : LET d C i ) «0 : GO TO 
1020 

10 10 LET rnd = XNT l RND*5) : RESTOR 
E ©000: FOR ri*l TO md+1: RERD C 
Ci) , d C i ) : NEXT n : LET C $ C i ) *CHR$ 
rlifi+rnd \ 

1030"LET à Ci ) «1: LET b Ci ) «INT CR 
ND *3£) : RETURN 
1 'sji :5 f U P 

ligi EE? PR 

X NT INK ©.; RT a C i ) -1 , t. 1 ; " L. M ' ‘ RT a 
Ci) , t 1 , 1 ' N O ' ‘ 

£010 EìEEP .05,0: PRINT INK 6 ; RT 
a C i ) ~ 1 , t l ; ",JK ’• : BEEP . 05 , - 12 : 
2020 L.ÉT t£=a Ci) : GO SUB 1000 
2050 RETURN 

£990 STOP_ 


: " 0 " 
R E M 
INK 


n > 0 T M E N G O 
.5,p; CHR$ «1 


THEN LET C$ Ci ) ="fl 
LET d (i ) =0: GO TO 


£999 REM | 
3000 XF c 


3000 XF c * l i ) = R ' THEN PRINT Pi T 
0,30-9 un; PRPER 4-.; INK 0;"R": LE 
T g u n *g u n + i : go to 3 100 

3010 LET £.«:£.+!: PRINT RT 0.0- (LE 
N C STR| £. ) ) ; PRPER 4-; INK 0 ; s 

3100 RETU RN 
3 9 9 9 R E M 


4.000 PRINT INK 0; RT 15 , P I "B" : FO 
R 2 ss 1 © T O £ 0 

4 010 X F RTTR C 2 , P ) « £ 9 TH EN PRX NT 
RT Z , p ; '• " : PRINT RT Z , p + (RTTR 

C z , P + 1 ) «29 ) -- l RTTR l z . p - 1 ) «29 ) ; " 
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4- ® ;2 © NEXT z: INK 7: PL-OT p*8+3.4 
7 : DRPU 0, -38: BEEP .1,4.0: BEEP 
.15,30 

4.030 INK 3: PLOT p*8+3,47: DRflU 
0 , -38 

4.04.0 IP flTTR ( £ 1 , p ) =S9 TMEN PRIN 
T INK 8 RT S 1 , I NT ( p/4) *4 + 1 ; "UK " 
4080 PRINT RT 0,31-gufi; PRPfeR 4; 

INK 4.; : LET gun=gun-l 

4030 RfeTURN 

8010 BORDER 1: PAPER 4: INK 0: C 
L_ 3 

5020 PRINT TAB 12.; FLASH 1; "Chom 

3 0 3 0 P R I NT , , "Se i i I. c h o fft per nel 
i. a rii e t a " s u p e r i o re de l lo scher m o 
e d e v i rn angiare il ci b o o cali u 
r a r e i ru ci Li che pio vono dal ci 
e i. o . C o ri iL cibo incrementi 
8040 PR I NT *• i p U ri t i , C O i f U Ci li d 

e v i u ccide r e i L rn ost.r o s o t t o s t a n 

te che cr esce col cibo n on racco 

i. t. o . " 

3080 PRINT ■■Muovi cori i tasti:", 
"S-Sinistra" , , "8—Destra" , .."spara 
co n l o 0 . IL numero dei fucili 

(e degli sparii l o t rov i 
8030 PR INT "n e l. L " a n g o i o i n a L t. o 
a destra" , " i p u nti a sinistra 



IP 
R E M 


INKEY$ 
INKEY$ 




THEN 


50 

G O T O 50 ‘3 


0 


•HF 


INK 


u 


LET m®0: 


80 80 
80 

5030 
0 

B 0 © 9 

5 100 BORDI 
LS 

8110 GO SUB 3©00: 

5120 LET S-0 : LET 

LET g uri =5 0: 

8 130 Ù I-r-1 a !3) : DIM b (3) : DIM C*( 

3): DIM C(3) : DIM d(3): POR i=l 

TO 3 : LET a ( i ) =s — 5 * i : LET b t i J «IN 
T !RND*32) 

5 140 LET r ri d « I NT (RND*5 > : RESTOR 
E 8000 : POR ri » 1 TO iTid+1: READ C 
Ili , d ( i ) : NEXT ri 

8180 LET c$(i)*CHR* (148+rnd): N 

E XT i 

5400 PRINT PRPER 4; INK 0.;" 

_R r m 


REM UDi 
P *15 : 

b >: 3 ) 


3410 POR i*0 TO 
*4 + li INK 3.; "JK"; 
" : N È XT i 
8430 GO TO 
3333 REM 
3000 DATA 
6333 REM 




T 31 


20 , i 
i * 4 + 1"NO 
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7000 POR Z=15 TO SI: PRINT fiT I, 

♦ 1 • 11 11 . kj(=• V"T -t . TMK ti- 

7005 IF tl=P OR t ± + X ss p ThEN GO T 

O 7050 

70 10 LET m *0 : LET z^ai^'P" fiND t 1 

-P>0)+("0" fi N D tl-P <0 J 

7015 POR 2 st1 TO p STEP (SGN < P- 

7020 PRINT RT 15 , z ( Z * fiND rn ) ; ■( " 

R" fi NO NOT rn :i 

7030 LET rii ==rn -rr. + ( NOT rn i : BEEP . 1 

INT CRND*30) : PRINT fiT 15,2 ; "S" 

704.0 NEXT Z 

7050 PRINT fiT 15,P;"R": BEEP 1.5 

, -30: P R IN T IN U E fi S E 1 ; F L fi S H 1 ; 

ÌNK 7;fiT 10,11;"GORA FINITO" 

7060 PAUSE Ì00: BORDER 6: PRPER 

5 : INK 0 : CLS 

7070 PRINT fiT 6,0; "Hai fa t. t O ” ; S 

; " con ' ‘ ; g u n ' 1 a r rn i r i rn a s te ' ‘ 

7060 PRINT fiT 8,0;"Uuoi fare un' 

a i. tra 9 a r a ( y n ) •? 1 ■ 

709© GO TO 7090 ■+• < INKEV % - " y " ) + ( 23 
00 fi N D IN K E V $ a 1 * ri • 1 :i 

7 100 IP INKEV $ < >.THEN GO TO 71 

00 

7110 PRINT fiT 10,0.; "UU o i Le ist r 

uz i on i (u /n :• ?" 

7120 G p __ TO ^7' 15 0 - 1 . 5 1S0 fiNO^INKEY % 

Ì 0 Ì 0 RE'Ì^ChI 1 x «1 TO 19 
POR ns0 TO 7: READ a: POKE USR 

CHR$ (143 + i ) +n ,a : NEXT ri: NEXT 


9010 DfiTfi 0,1,253,6 3,10,31,3,3 : 
REM a ri •: o r a a r rn i 

9020 D fiT fi 3 1,63.52.52,60,4-6.32,3 
2 : REM a r rn i 9 i u ■' 

9030 DfiTfi 192,192,224,224,112,12 
4,63,14: REM salsicce 

9040 DfiT fi 126,255,265,0,0,255,25 
5,126: REM h a rn bu r g e r 

9050 D fiT fi 7,15,15,14,1.6,32,1.92,1 
26 : REM Le9 

9060 DfiTfi 252.121,127,12 1,121,12 
7,121,252: REM birra 

9070 ÓfiTfi 16,24,60,60,255,255,12 
6,60: RÉ M pere 

9060 DfiTfi 66,195,231,255,255,126 
,36,231: REM e h o rn p e r aper t o 

9090 DfiTfi 60,126,255,255,265,126 
,66,1 0 2 : REM ehom p er chiu fio 

9100 DfiTfi 32,32,96,112,120,60,31 
.15: REM rn o s t r o t ., a p e r t o 
9110 DfiTfi 4,4,6,14,30,60.246,240 
REM rn o s t r o t > , a p e r t o 
9 12 0 D fi?" fi 15,3 1,6 3,12 7 , 12 7,6 3,3 1 

,15: RE M rn o fi t r o t- < , c h i u s o 

9130 DfiTfi 240.246,252,254,254,25 
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2 , 248 
914-0 
£M CO 

,840: REM rn O 

s t r 

o T> , chi 

U 

£ O 

DflTfi 4,9,18, 
r p o -t- < 

36 , 

3© , 10,9, 

4. 

R 

9 150 
,32: 

DATA 39 , 14-4. , 
REM corpo -T- 

72 , 

-, 

30 30,72 

•• 

14-4- 

9160 
80 : 

DATA 60,126 , 
R E hi m o s t r o < 

207 

, 3 , 3 , 907 


126 

9170 
, 126 . 

DflTfi 60,126 , 
00: REM rnos-t 

a 4- s 
r o 

, 1 9 a 1 9 a 


24-3 

9 1 0 0 

. i a 0 ,i 

DATA 00 , 128, 
00: REM rnost 

2S5 
r o 

255 , 255 
c h i u so 

.1 

255 

9190 

DATA 00 , 00 , 1 

g; 3 , 

36 , 36 , 15 


, 6© 

, 00 : 
9500 

REM corpo « . 
RETURN 




99 90 
l„ S 

SORDER 7 : PAPER 

6 : 1NK 

23 

C 

9999 

Pi O “ : 

PRINT FU. ASM 
STOP 

1AT 10,13.; 

1 1 

C I 


Note 


10 

20-90 

30 

50 

60 

70 

100 

120 

1000 

2000-2010 

3000 

3010 

4000-4020 

4020-4030 

4040 

4050 

5020-5090 

510fe 

5110 

5120 

5130 

5140-5150 

5400-5490 

7000-7050 

7060-7120 

9000 

9010-9190 

9990-9999 


Inizi*!izza 

Muove il cibo e rileva se sia stato mangiato 

Cancella i vecchi oggetti 

Rileva se e' stato mangiato dal "Chomper" 

Rileva se e' stato mangiato dal mostro 
Stampa gli oggetti 
Muove il "Chomper" 

Stampa il "Chomper" 

Decide se il prossimo oggetto da far cadere sia un 
fucile 

Ristampa il mostro non appena si ingrossa 
Fucile mangiato 
Cibo mangiato 

Cancella il mostro se viene colpito 
Sparo del fucile 

Ristampa il mostro nella parte bassa dello schermo 

Diminuisce la fornitura d' armi 

Scrive le istruzioni e prepara alla partenza 

Colori 

UDG 

Iniziai izza le variabili 

flrrays 

Cibo 

Disegna lo schermo 

Il mostro divora, il "Chomper" 

Bit finale e nuova gara 
Definisce gli UDG 
Dati per gli UDG 
Fine della gara 


Il secondo game mette a disposizione due uomini i 
riuscire a fermare le gocce di pioggia che cadono 


quali devono 
verso di essi 
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e '«nell.' oceano. Anche questo programma usa oli. array per 
muovere indipendentemente le gocce, ma pur avendo diverse 
tecniche in comune con il precedente, fornisce un risultato del 
tutto diverso e sicuramente migliore. 

Il Miglior risultato che io ricordi e' 48, valore che con un 
po' di pratica riuscirete sicuramente a battere. 

Gli UDG del Programma si trovano alle linee : 70-lettera A, 

1000-lettera H e 8000-due lettere I. 

Eleneo delle variabili 

i Controllo del loop per muovere le gocce 

a< . > Coordinata verticale della goccia 

b<. > Coordinata orizzontale della goccia 

temp Memorizzazione temporanea di b<. > per cancellare 

la vecchia goccia dopo che sia stata iniziaiizzata 
la sua sostituzione. Da' l' impressione della 
continuità' 
s Punti 

a* Usato per leggere la tastiera 

l Marker per spostare i. giocatori a destra o a. 

sinistra 

m Si alterna tra 0 e 1 facendo camminare gli uomini 

p Coordinata orizzontale del primo uomo 

t* Stringa composta da due elementi per memorizzare 

le due possibilità' di orientare verso destra o 
verso sinistra la meta' superiore dell' omino, "l" 
lo porterà' poi nella giusta direzione 
b* Simile a t*, riguarda la parte inferiore dell' 

omino. La direzione la stabilisce "m" 

wl Livello dell' acqua 

h Record 

i,n Variabili di controllo dei vari loop 


10 
90 
3 0 
) , b C 
4-0 
S0 
< i ) * 
SUB 
©0 
i ) : 

ub a 

70 
RT a 
80 
90 
a $ » 
RB p 


G O T 
POR 
IP a 

x Lèr 
1P a 
p +13) 
1000 
IP a 
L ET S 
000 : 

IP a 
Ci) , b 
NEXT 
L. ET 


□ 

i 

C i. 


8000 
* 1 TO 


0 


THE M 


PRINT RT a C i 


a ci) s*a ci) + i 

Ci) *15 RND C b C i ) = P OR b 
THEN LET tempab Ci ) : GO 
PRINT RT 13, temp " 
Ci)* 1 © THEN LET t e m P=b( 
*5-1: GO SUB 1000: GO 3 

P R I NT RT 17, te rei p " " 

Ci) >0 THEN PRINT INK 5; 
Ci) ; "fi" 
i 


T 

+13 ; • • 
LET L 
07' rn ) 


a * = INK EV $ 
HEN PRINT 
*• ; TRB p 
* (a $ = " 8 " j 


IP a$=="s’• OR 
RT 16 , p T 

" 1 TRB p + 13 " 

L. ET m * rn - m + C N 
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100 L.ET p «p + (a $ = "©" AND 
a $ = "5" AND P >0) 

110 PRIMT INK 2 ; AT Ifò.P 
TRB p + 13 tiil+1) ; TRB p : 
+ 1) ;Tfìe p+13j b*(U2+((i+l) 
12 Ò eo rp a e 

i§S§ ^5NflP , iW a , (i ) 

6) , b ( i > : "H" : LET a < i ) =0 : 

)=IMT (RND*32): LET S= S+ 

ND*ar 


AMD p < 10.1 - r 


: t. $ (i. + 13 
b $ ( i. *2 +m 


10 10 BEEP_. 

1929 REM »? 
2000 PLOT 0 
2010 LET mi 
GO TO @000: 
202© RETURN 
4.999 REM HH 
0000 LET h « 
500S XMK 0 : 


S + 1 


• ( a ( i ) * 1 
LET b<i 

RETURN 


, W I. : D 
w W l + 1 : 
REM QU 


PAPER 


. 12S0 

■31.TMEN 


BORDER 


l_5> 

0010 PRIMT AT 1,11; FLASH 1;"Tem 
poca le"; flash 0, , ."Dovete contr 
oliare 2 u omini con i - om b r e i lo , p 
er mezzo dei tasti * • , , "5~SIN ' ■ . , 
" S ~ o E st ■ 1 

0020 PPINT "per- catturare' i e go 
c ce d "a equa che scendono dai eie 
l o. 0gn u n a mancata,a l z a i l live l 

io dell'oceano sottostante, cere 
a te di a f f o gare il piu' tardi p o 

0 03 0 PRIMT AT 14. ,3; FLASH 1;" Un 
t asto p e r co nt inuare" 

0g4.0 IP IMKEYf < >"" TMEN GO TO 00 

0000 IP IMKEY$ »"" TMEN GO TO 505 
0 

005.0 CLS GO SUB 9000: REM U D G 
5070 LET P=15: LET m=0 : LET 1=0: 

L.ET ih I =0 ■ I ET ■=. =0 
5080 DÌM a (3:i': DIM b (3) : POR issi 
TO 3: LET b(i)«IMT (RMD#32): LE 
T a (i :• s=-i *5: MEXT i 
5089 REM COLORI-COLORI 
55 0 90 BORDER 5: PAPER "7: INK 7: C 

LS 

5100 PLOT 0,31: DRAU INK 0:255.0 

5 110 P L O T 0 A w l : DPR U IN K 1 ; 255,0 

3000 P11INK 2 
: AT 13. p ; " " ; TAB p+13; " " TAB p; 

"X";TAB p+13;"I": RE5TORE 9500: 
POR i =1 TO 11: PERD V . X : BEEP V, 
X : MEXT i 

©010 BORDER 2: PRPER 1: INK 7: C 

LS 


@020 PRIMT TAB 5.:" Hai preso " ; & 
" gocce".: ( '' s " AND s < > 1 :• 

@030 IP h > =5 THEN PRIMT AT 2,©.;" 
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h : GO TO ©0®£i 
2,7; "N uo v o record 


g i o c a r e 
XNKEY! 


Xt record e - 
804.0 PRXNT RT 

" : LET h 

8050 PRXNT RT 4,0;"Uuoi 

ancora 7 ■: y / n > 7 " 

606© GO TO 8060+(1930 AND 

a " ri “ ) + ( XNKEY $ » “ y " :• 

6070 XF XNKEY *<>■•" THEN GO TO 80 

70 

8080 PRXNT RT 0,0; " Uu O i. I.. e i s t. r u 

2 i o ri i 7 ( y n j 7 ' ' 

8090 GO Tò 8090-(3085 AND XNKEY* 

a ’* y “ ) - ( 3 0 30 RND INKE Y * = " n " ) 

©999 REM _ 

900© DIM t„ * ( S ) : DTR 5^(4.:! 

901© RESTORE 908©; FOR i«l Tu 9 

FOR n *0 TO 7: READ a; POKE U3R 

CNRS <14 3 + i :i ■+• ri , a 

9090 IF i >1 AND i < 4- THEN L ET t*( 

i - 1 > «CHR * < 14.3 + i ) 

9030 XF i >3 AND i < 8 THEN LET b« ( 

i -3) aCHRS <143 + i ) 

Xf 


9040 NE 
9050 DATA 
9080 DATA 

9070 DATA 
9080 DATA 

9090 DATA 
9100 DATA 
8 

9110 DATA 
. 94 

9190 DATA 
4 

9130 DATA 
9140 RETUR 
9499 REM 
9800 DATA 


ri : NEXT i 
0,18,16,56,56,194,88,0 
00 - - - • ~ “ - - - - 


8© 
8 8 

8 8 

3 4 


89,148,18,18,19 18 


60 

80 


19 , Ì9 , le! , 84,38,1 
19 12 , 12 , 11 , 9,24 


3 4,60 

0 , 0,0 

0 , 0,0 

RN 

EÉSgg 


©0,48,4©,48,42,36,4 
46,48,48,20©,144 
196,38,153,102,2 
24,185,163,90,60 


ffl O t i V o 


8 . © 


3 


, 0 


1 1 


1 , .5,0 


,.37,3,.12,2,.37,2,.19,0,.37,0,. 
12,-i,1,0 

9990 BOftDER 9 : PAPER © : INK 2 : C 

LS REM Progr a m maxion e 

9999 PRXNT AT 10,13.; FLASH 1.;" C 


IA O 


STOP 


Note 


10 

20-00 

30 

50 

60 

70 

90 


Iniziai Izza 

Loop per muovere le gocce e per verificare 

Cancella la goccia 

Rileva se ha colpito T omino 

Rileva se ha colpito il suolo 

Disegna la goccia 

Fornisce V input e cancella la vecchia sagoma 
dell' omino 
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100 
1 10 
1000 

2000 

2010 


5005-5030 

5040-5050 

5060 

5070 

5080 

5090-5110 

8000 

8010-8090 

9000 

9010-9040 

9050-9130 

9990-9999 


Cambia la posizione 
Ristampa 1. ' uomo 

Stampa lo splash, aggiorna il punteggio e 
iniziai izza una nuova goccia 
Disegna il nuovo livello 

Incrementa il livello dell' acqua e verifica se e' 

ad altezza d' uomo 

Istruzioni 

Tutto pronto 

UDG 

Iniziai izza le variabili 
Iniziaiizza le gocce negli array 
Disegna lo schermo 

Disegna l' omino carico e suona il motivetto 
Bit finale <punti, nuova gara ecc...> 

Iniziai izza le variabili stringa per l' omino 
Definisce gli user-graphic e li pone nel le¬ 
var iabili stringa 
Dati per gli UDG 
Fine del game 


114 



Capitolo 9 


COME RENDERE F'IU' INTERESSANTI I GAMES 

L' attrattiva di un «am* molto dipende dal modo in roti viene 
presentato. Non cadete nel la, prolissità', el iminate le frano® 
i fiuti li senza fare piu-' di quanto il listato non richieda. 
Badate anche a non introdurre troppe presentazioni o 
infioriture che, se da. un lato mioliorano 1' aspetto del 
display, dall-' altro rendono piu' lento il programma. 

Eccovi alcuni preziosi suggerimenti : 

-Stendete le istruzioni con una nota di hu.mor rendendole piu.-' 
divertenti e fuori dalla norma apportando qua' e la' piccoli 
ritocchi tanto da far capire che i games servono a divertire e 
non vanno presi troppo seriamente. 

-In casi particolari, il computer deve dare l' impressione di 
commentare l ' evento. Ad esempio, in un game tipo "Mastermind" 
potete inserire prima e dopo ogni mossa, frasi del genere 
"Siamo duri eh?..." seguito da una pausa e poi "finalmente ci 
sei arrivato!". Anche qui pero', occhio a non esagerare perche' 
cadreste nel noioso. 

-Per dare forma agli oggetti usate gli UDG e non simboli come 
l' asterisco, il punto esclamativo o simili che non rendono 
assolutamente alcuna idea. La gente non ricorda se la bomba e' 
grossa la meta' dell.' aereo che la sgancia, bensì.' nota il 
realismo delle scene e del succedersi delle azioni. 
-Sperimentate diversi colori usando le piu' svariate 
combinazioni, e magari randomizzando i colori di PAPER e di INK 
in funzione di certi eventi cosi' come avviene nel programma 
ICBM. 

-Generate spesso le esplosioni, sono cariche di effetto. State 
pero' attenti che all' atto dell' esplosione, i l resto del. 
programma rimane inattivo per cui un abuso in questo senso 
porterebbe a interruzioni troppo frequenti che ostacolerebbero 
l' effetto prefissato. 

-Dovendo inserire effetti, musicali, non affidatevi a frequenze 
di note random, ma ricorrete a filastrocche piacevoli come 
spiegato nel contesto del volume. 

Fate attenzione alla velocita' con la quale il programma gira. 
E' vero che piu' una azione e' veloce e meglio e', ma anche qui 
non bisogna esagerare sconfinando nell.' impossibile. Se 
ritenete troppo rapido lo svolgimento di determinate fasi, 
rallentatelo frapponendo piacevoli effetti musicali. Ovviamente 
la velocita' di un game dipende da piu' fattori quali ad 
esempio : le tecniche usate, ivi compresa la compattezza del 
programma m codice, l' organizzazione dei componenti e quella 
del-le variabili. Un programma con "x" linee comprendenti' ognuna 
uno statement gira piu' lentamente di "x" statement raggruppati 
nella stessa linea. 

Il componente piu' importante di un game e' il loop principale, 
seguito dalle subroutines, prima quelle piu' usate poi quelle 
meno (come le istruzioni>. Quando il programma incontra GO TO o 
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GO SUB,, esplora ir» successione i numeri delle linee fino a che 
non raggiunge quella richiesta. Polche' il computer parte dall' 
inizio del listato., piu' vicina si trova la linea alla quale va 
eseguito il salto e piu' rapidamente questo avviene. Stesso 
discorso vale quando il computer consulta una variabile. Quelle 
insite nel primo blocco considerato vengono iniziaiizzate per 
prime e quindi rintracciate piu' velocemente. 

Il BASIC viene spesso criticato per essere un linguaggio "non 
strutturato" a causa appunto del GO TO che, se usato 
impropriamente, dirotta fuori destinazione il flusso del 
programma. E' possibile a tale scopo, strutturare i programmi 
in modo da far loro assumere le caratteristiche del PASCAL il 
quale impiega dei loop formati da GO SUB. Questo procedimento 
si basa su di un "sottoprogramma", richiamato dal loop 
principale, in grado di fare le operazioni piu' svariate come 
causare un' esplosione, far sparare un laser, oppure muovere 
gli invadere. 

Provate a dare un' occhiata a quanto segue, e tenetene presente 
come intelaiatura di games : 


d 


10 

az ion 

19 

20 
30 
4-0 
SO 
1 T 
60 
7 0 
©0 
© 1 
9 0 

100 
199 
900 : 
490 

499 

500 : 
9 90 
999 

1000 : 
14 0 

14 99 
1S00 : 
1550 
19 9 0 
199 9 
9000 : 
2490 
24 99 
SS00 : 
2 9 9 0 

2 9 9 9 
30 00 : 

3 4 9 0 

4 9 99 


GO SUB ©000 : REM iniZ i a LiZZ 

REM LOOP PRINCIPALE 

GO SUB GET INPUT 

G O S U13 M O UE BASE 

G O S U B M O U E IN UADERS 

GO SUB CHECK END: REM IF en 

HEN END 

GO SUB PIRE 

GO SUB CHECK HIT 

IP NOT ®nd THEN GO TO 20 

REM PINE DEL LOOP 

GO SUB EXPLODE 

STOP 

REM ***INPUT*** 

R ET U R N 

R E f-1 * * * M O U IM E NT O BASE * * * 


INURDERS*** 


R ET I l R N 

R E M ” * * M O U IM E NT O 
RETURN 

REM * * *P XNE * * * 

R E M IF C h it3 T H E N e n d » 1 
RETURN 

REM * * *FUOCO * * * 

RETURN 

R E M * * R IL. E U R M E NT O U RT I * * 
R ET U R N 

REM * * «ESPLOSIONE* * * 

RETURN 
R E M * * * IN X ! 


; IALI2ZAZIONE* * * 


ne 




5000 
S010 
Sfi00 
S210 
5220 
55300 
5310 
53S0 
53 3 0 
534.0 
5350 
5360 
54.90 


REM istruzio ni 

REM inizia lizzaz» o ne 
LET end -0 


L..ET GET INPUT *200 

LET MOUE ERSE=500 

LET MOUE INURDER5=1000 

LET CHECK END=1500 

LET PIRE *2000 

LET CHECK HIT«£500 

LET EXPLOOE=3000 

RETURN 


Come potete constatare, questo metodo e' chiarissimo ma, porta 
a programmi di una certa lunghezza. Suo grosso vataggio, e' 
quello della tecnica modulare in base alla quale ogni blocco 
può' essere registrato separatamente e aggiunto ad altri 
tramite MERGE. 

La "standardizzazione" delle subroutines e delle variabili e' 
talvolta indispensabile per rendere piu' comoda la stesura del 
listing. Io. di solito, uso "i" e "n" per il controllo dei 
loop, "s" oppure "x" per determinare i punti e cosi' via. La 
ricorrenza di questi simboli mi permette di scegliere 
appropriatamente il nome delle altre variabili. 

Ed eccoci gunti al termine. Con l' augurio che questo libro vi 
abbia fornito le informazioni indispensabili a realizzare games 
sempre piu' divertenti, mi congedo augurandovi "buona 
programmazione"!. 
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ve dettagliatamente tutte le tecniche di stesura di giochi ARCADE, par¬ 
erò della tastiera e toccando la definizione grafica, l’impiego del suono 
[tori logici, per migliorare la qualità dei programmi. Altri argomenti 
sono l'animazione degli oggetti, lo scrolling dello schermo e l'im- 
|EK e POKE per il loro uso più corretto. 

[la 18 programmi la maggior parte dei quali o sono inediti, op- 
nigliorate di games di grande successo come "INVADERS" e 
|^sono stati registrati sulla cassetta allegata al volume al 
di digitazione. 



Cod. 9003 


L 25.000 

prezzo comprensivo di cassetta 




